MAPLPy_ESMF_MethodExecute Subroutine

public subroutine MAPLPy_ESMF_MethodExecute(esmf_state_c_ptr, label_c_ptr, label_len) bind(c, name="MAPLPy_ESMF_MethodExecute")

Arguments

Type IntentOptional Attributes Name
type(c_ptr), intent(in), value :: esmf_state_c_ptr
type(c_ptr), intent(in), value :: label_c_ptr
integer(kind=c_int), intent(in), value :: label_len

Calls

proc~~maplpy_esmf_methodexecute~~CallsGraph proc~maplpy_esmf_methodexecute MAPLPy_ESMF_MethodExecute ESMF_MethodExecute ESMF_MethodExecute proc~maplpy_esmf_methodexecute->ESMF_MethodExecute mapl_vrfy mapl_vrfy proc~maplpy_esmf_methodexecute->mapl_vrfy proc~mapl_abort MAPL_abort proc~maplpy_esmf_methodexecute->proc~mapl_abort mpi_abort mpi_abort proc~mapl_abort->mpi_abort

Source Code

    subroutine MAPLPy_ESMF_MethodExecute(esmf_state_c_ptr, label_c_ptr, label_len) bind(c, name="MAPLPy_ESMF_MethodExecute")
        ! Read in STATE
        type(c_ptr), intent(in), value :: esmf_state_c_ptr
        type(ESMF_State), pointer :: state

        ! Read in name
        type(c_ptr), intent(in), value :: label_c_ptr
        integer(c_int), intent(in), value :: label_len
        character(len=label_len,kind=c_char), pointer :: label

        ! Turn the C string into a Fortran string
        call c_f_pointer(label_c_ptr, label)

        ! Turn the ESMF State C pointer to a Fortran pointer
        call c_f_pointer(esmf_state_c_ptr, state)

        call ESMF_MethodExecute(state, label=label, RC=STATUS)
        VERIFY_(STATUS)

    end subroutine MAPLPy_ESMF_MethodExecute