convert_ISO8601_to_integer_time Function

public function convert_ISO8601_to_integer_time(isostring, rc) result(integer_time)

Arguments

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

Return Value integer


Calls

proc~~convert_iso8601_to_integer_time~~CallsGraph proc~convert_iso8601_to_integer_time convert_ISO8601_to_integer_time proc~get_hour ISO8601Time%get_hour proc~convert_iso8601_to_integer_time->proc~get_hour proc~get_minute ISO8601Time%get_minute proc~convert_iso8601_to_integer_time->proc~get_minute proc~get_second ISO8601Time%get_second proc~convert_iso8601_to_integer_time->proc~get_second proc~mapl_return MAPL_Return proc~convert_iso8601_to_integer_time->proc~mapl_return proc~mapl_verify MAPL_Verify proc~convert_iso8601_to_integer_time->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

Called by

proc~~convert_iso8601_to_integer_time~~CalledByGraph proc~convert_iso8601_to_integer_time convert_ISO8601_to_integer_time proc~test_convert_iso8601_to_integer_time test_convert_ISO8601_to_integer_time proc~test_convert_iso8601_to_integer_time->proc~convert_iso8601_to_integer_time

Source Code

   function convert_ISO8601_to_integer_time(isostring, rc) result(integer_time)
      character(len=*), intent(in) :: isostring
      integer, optional, intent(out) :: rc
      integer :: integer_time
      type(ISO8601Time) :: time
      integer :: status

      time = ISO8601Time(isostring, _RC)

      integer_time = time%get_hour()*IT_HOUR + time%get_minute()*IT_MINUTE + &
         time%get_second()*IT_SECOND

      _RETURN(_SUCCESS)
   end function convert_ISO8601_to_integer_time