MAPLpy_ESMF_TimeIntervalGet Function

public function MAPLpy_ESMF_TimeIntervalGet(time_state_c_ptr) result(result) bind(c, name="MAPLpy_ESMF_TimeIntervalGet")

Arguments

Type IntentOptional Attributes Name
type(c_ptr), intent(in), value :: time_state_c_ptr

Return Value real(kind=c_double)


Calls

proc~~maplpy_esmf_timeintervalget~~CallsGraph proc~maplpy_esmf_timeintervalget MAPLpy_ESMF_TimeIntervalGet ESMF_TimeIntervalGet ESMF_TimeIntervalGet proc~maplpy_esmf_timeintervalget->ESMF_TimeIntervalGet

Source Code

    function MAPLpy_ESMF_TimeIntervalGet(time_state_c_ptr) result(result) bind(c, name="MAPLpy_ESMF_TimeIntervalGet")
        ! Read in STATE
        type(c_ptr), intent(in), value :: time_state_c_ptr
        type(ESMF_TimeInterval), pointer :: state

        ! Results
        real(c_double) :: result

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

        call ESMF_TimeIntervalGet(state, S_R8=result)
    
    end function MAPLpy_ESMF_TimeIntervalGet