convert_ISO8601_to_integer_date Function

public function convert_ISO8601_to_integer_date(isostring, rc) result(integer_date)

Arguments

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

Return Value integer


Calls

proc~~convert_iso8601_to_integer_date~~CallsGraph proc~convert_iso8601_to_integer_date convert_ISO8601_to_integer_date proc~get_day ISO8601Date%get_day proc~convert_iso8601_to_integer_date->proc~get_day proc~get_month ISO8601Date%get_month proc~convert_iso8601_to_integer_date->proc~get_month proc~get_year ISO8601Date%get_year proc~convert_iso8601_to_integer_date->proc~get_year proc~mapl_return MAPL_Return proc~convert_iso8601_to_integer_date->proc~mapl_return proc~mapl_verify MAPL_Verify proc~convert_iso8601_to_integer_date->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_date~~CalledByGraph proc~convert_iso8601_to_integer_date convert_ISO8601_to_integer_date proc~test_convert_iso8601_to_integer_date test_convert_ISO8601_to_integer_date proc~test_convert_iso8601_to_integer_date->proc~convert_iso8601_to_integer_date

Source Code

   function convert_ISO8601_to_integer_date(isostring, rc) result(integer_date)
      character(len=*), intent(in) :: isostring
      integer, optional, intent(out) :: rc
      integer :: integer_date
      type(ISO8601Date) :: date
      integer :: status

      date = ISO8601Date(isostring, _RC)

      integer_date = date%get_year()*ID_YEAR + date%get_month()*ID_MONTH + &
         date%get_day()*ID_DAY

      _RETURN(_SUCCESS)
   end function convert_ISO8601_to_integer_date