get_integer_digit_from_string Function

public pure function get_integer_digit_from_string(s, i)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: s
integer, intent(in) :: i

Return Value integer


Calls

proc~~get_integer_digit_from_string~~CallsGraph proc~get_integer_digit_from_string get_integer_digit_from_string proc~get_integer_digit get_integer_digit proc~get_integer_digit_from_string->proc~get_integer_digit

Called by

proc~~get_integer_digit_from_string~~CalledByGraph proc~get_integer_digit_from_string get_integer_digit_from_string proc~read_whole_number_indexed read_whole_number_indexed proc~read_whole_number_indexed->proc~get_integer_digit_from_string proc~test_get_integer_digit_from_string~2 test_get_integer_digit_from_string proc~test_get_integer_digit_from_string~2->proc~get_integer_digit_from_string proc~construct_iso8601duration construct_ISO8601Duration proc~construct_iso8601duration->proc~read_whole_number_indexed proc~read_whole_number read_whole_number proc~read_whole_number->proc~read_whole_number_indexed proc~test_read_whole_number_indexed~2 test_read_whole_number_indexed proc~test_read_whole_number_indexed~2->proc~read_whole_number_indexed interface~iso8601duration ISO8601Duration interface~iso8601duration->proc~construct_iso8601duration proc~parse_date parse_date proc~parse_date->proc~read_whole_number proc~parse_time parse_time proc~parse_time->proc~read_whole_number proc~parse_timezone_offset parse_timezone_offset proc~parse_time->proc~parse_timezone_offset proc~parse_timezone_offset->proc~read_whole_number proc~test_read_whole_number~2 test_read_whole_number proc~test_read_whole_number~2->proc~read_whole_number proc~construct_iso8601date construct_ISO8601Date proc~construct_iso8601date->proc~parse_date proc~construct_iso8601time construct_ISO8601Time proc~construct_iso8601time->proc~parse_time proc~test_parse_date~2 test_parse_date proc~test_parse_date~2->proc~parse_date proc~test_parse_timezone_offset~2 test_parse_timezone_offset proc~test_parse_timezone_offset~2->proc~parse_timezone_offset proc~test_parse_time~2 test_parse_time proc~test_parse_time~2->proc~parse_time

Source Code

   pure integer function get_integer_digit_from_string(s, i)
      character(len=*), intent(in) :: s
      integer, intent(in) :: i

      if((i>0) .and. (i<len(s)+1)) then
         get_integer_digit_from_string = get_integer_digit(s(i:i))
      else
         get_integer_digit_from_string = INVALID
      end if
   end function get_integer_digit_from_string