fc2k_synchrotron_radiation.f90

Go to the documentation of this file.

  SUBROUTINE fc2k_synchrotron_radiation(COREPROF, CORESOURCE)

!-------------------------------------------------------!
!     This routine calculate sybchrotron radiation      !
!                                                       !
!-------------------------------------------------------!
!     Source:       ---                                 !
!     Developers:   I.M.Ivanova-Stanik                  !
!     Kontacts:     irena.ivanova-stanik@ifpilm.pl      !
!                                                       !
!     Comments:     might change after the ITM          !
!                   data stucture is finalized          !
!                                                       !
!-------------------------------------------------------!


    USE euitm_schemas
    USE synchrotron
      
      
    IMPLICIT NONE
 
! +++ CPO derived types:
    TYPE (type_coreprof),    POINTER :: coreprof(:)
    TYPE (type_coresource),  POINTER :: coresource(:)

      
    CALL synchrotron_radiation(coreprof, coresource)


    RETURN


    END SUBROUTINE fc2k_synchrotron_radiation
! + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 
! + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +