fc2k_geom_from_cpo.f90

Go to the documentation of this file.

! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +   
SUBROUTINE geom_from_cpo(EQUILIBRIUM,   EQUILIBRIUM_OUT,user_out_outputFlag,user_out_diagnosticInfo)!,  &
!                         NDIM1, NDIM2 ) 

!--------------------------------------------------------
! This is FC2K wrapper for GEOMETRY_FROM_CPO            !
!--------------------------------------------------------

  USE itm_types
  USE euitm_schemas
  USE equilibrium_tools

  IMPLICIT NONE

  TYPE (type_equilibrium), POINTER :: equilibrium(:)      
  TYPE (type_equilibrium), POINTER :: equilibrium_out(:)  
  
  INTEGER                          :: ndim1   
  INTEGER                          :: ndim2

integer :: ierr_in
character*255 :: err_mes_in
!----  Diagnostic info  ----
integer, intent(out)     ::     user_out_outputflag
character(len=:), pointer, intent(out)    ::    user_out_diagnosticinfo
integer nchd

user_out_outputflag=0
nullify(user_out_diagnosticinfo)
 
  ! temporary
  ndim1 = 101
  ndim2 = 101 
  
  CALL geometry_from_cpo(equilibrium,   equilibrium_out, &
                          ndim1, ndim2,ierr_in,err_mes_in)

 if (ierr_in.lt.0) then
    user_out_outputflag=-1
    nchd=len_trim(err_mes_in)
    allocate(character(nchd)  :: user_out_diagnosticinfo)
    user_out_diagnosticinfo=err_mes_in(1:nchd)
 end if 
  RETURN 


END SUBROUTINE geom_from_cpo
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +  
! + + + + + + + + + + + + + + + + + + + + + + + + + + + +