MAPLPy_ESMF_AttributeGet_1D_int Function

public function MAPLPy_ESMF_AttributeGet_1D_int(esmf_state_c_ptr, name_c_ptr, name_len) result(return_value) bind(c, name="MAPLPy_ESMF_AttributeGet_1D_int")

Arguments

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

Return Value integer


Calls

proc~~maplpy_esmf_attributeget_1d_int~~CallsGraph proc~maplpy_esmf_attributeget_1d_int MAPLPy_ESMF_AttributeGet_1D_int ESMF_AttributeGet ESMF_AttributeGet proc~maplpy_esmf_attributeget_1d_int->ESMF_AttributeGet mapl_vrfy mapl_vrfy proc~maplpy_esmf_attributeget_1d_int->mapl_vrfy proc~mapl_abort MAPL_abort proc~maplpy_esmf_attributeget_1d_int->proc~mapl_abort mpi_abort mpi_abort proc~mapl_abort->mpi_abort

Source Code

    function MAPLPy_ESMF_AttributeGet_1D_int(esmf_state_c_ptr, name_c_ptr, name_len) result(return_value) bind(c, name="MAPLPy_ESMF_AttributeGet_1D_int")
        ! 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 :: name_c_ptr
        integer(c_int), intent(in), value :: name_len
        character(len=name_len,kind=c_char), pointer :: varname

        ! Return value
        integer :: return_value

        ! Turn the C string into a Fortran string
        call c_f_pointer(name_c_ptr, varname)

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

        ! Call function
        call ESMF_AttributeGet(state, name=varname, value=return_value, RC=STATUS)
        VERIFY_(STATUS)
    
    end function MAPLPy_ESMF_AttributeGet_1D_int