neoclassic2coresource.f90

Go to the documentation of this file.

!-------------------------------------------------------!
!-------------------------------------------------------!
     SUBROUTINE neoclassic2coresource(NEOCLASSIC, CORESOURCE)
!-------------------------------------------------------!
!     This routine converts sourceort data from         !
!     NEOCLASSIC to CORESOURCE CPO                      !
!-------------------------------------------------------!
!     Source:       ---                                 !
!     Developers:   D.Kalupin                           !
!     Kontacts:     D.Kalupin@fz-juelich.de             !
!                                                       !
!     Comments:     should be udated after NCLASS       !
!                   is available to the ETS             !
!                                                       !
!-------------------------------------------------------!


     USE euitm_schemas
     USE itm_constants
     USE convert

     IMPLICIT NONE

     TYPE (type_neoclassic), POINTER :: neoclassic(:)
     TYPE (type_coresource), POINTER :: coresource(:)

     CALL convert_neoclassic2coresource(neoclassic, coresource)


    RETURN     


    END SUBROUTINE neoclassic2coresource
!-------------------------------------------------------!
!-------------------------------------------------------!