convert_ISO8601_to_esmf_timeinterval Function

public function convert_ISO8601_to_esmf_timeinterval(isostring, rc) result(interval)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: isostring
integer, intent(out), optional :: rc

Return Value type(ESMF_TimeInterval)


Calls

proc~~convert_iso8601_to_esmf_timeinterval~~CallsGraph proc~convert_iso8601_to_esmf_timeinterval convert_ISO8601_to_esmf_timeinterval ESMF_TimeIntervalSet ESMF_TimeIntervalSet proc~convert_iso8601_to_esmf_timeinterval->ESMF_TimeIntervalSet proc~get_days ISO8601Duration%get_days proc~convert_iso8601_to_esmf_timeinterval->proc~get_days proc~get_hours ISO8601Duration%get_hours proc~convert_iso8601_to_esmf_timeinterval->proc~get_hours proc~get_minutes ISO8601Duration%get_minutes proc~convert_iso8601_to_esmf_timeinterval->proc~get_minutes proc~get_months ISO8601Duration%get_months proc~convert_iso8601_to_esmf_timeinterval->proc~get_months proc~get_seconds ISO8601Duration%get_seconds proc~convert_iso8601_to_esmf_timeinterval->proc~get_seconds proc~get_years ISO8601Duration%get_years proc~convert_iso8601_to_esmf_timeinterval->proc~get_years proc~mapl_return MAPL_Return proc~convert_iso8601_to_esmf_timeinterval->proc~mapl_return proc~mapl_verify MAPL_Verify proc~convert_iso8601_to_esmf_timeinterval->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   function convert_ISO8601_to_esmf_timeinterval(isostring, rc) result(interval)
      character(len=*), intent(in) :: isostring
      integer, optional, intent(out) :: rc
      type(ESMF_TimeInterval) :: interval
      type(ISO8601Duration) :: duration
      integer :: status

      duration = ISO8601Duration(isostring, 0, 1, _RC)

      call ESMF_TimeIntervalSet(interval, yy=duration%get_years(), &
         mm=duration%get_months(), d=duration%get_days(), &
         h=duration%get_hours(), m=duration%get_minutes(), &
         s=duration%get_seconds(), _RC)

      _RETURN(_SUCCESS)
   end function convert_ISO8601_to_esmf_timeinterval