undelimit Function

public pure function undelimit(string, delimiter) result(undelimited)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string
character(len=1), intent(in) :: delimiter

Return Value character(len=len)


Called by

proc~~undelimit~~CalledByGraph proc~undelimit undelimit proc~parse_date parse_date proc~parse_date->proc~undelimit proc~parse_time parse_time proc~parse_time->proc~undelimit proc~test_undelimit~2 test_undelimit proc~test_undelimit~2->proc~undelimit 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_time~2 test_parse_time proc~test_parse_time~2->proc~parse_time interface~iso8601date ISO8601Date interface~iso8601date->proc~construct_iso8601date interface~iso8601time ISO8601Time interface~iso8601time->proc~construct_iso8601time proc~test_construct_iso8601time test_construct_ISO8601Time proc~test_construct_iso8601time->proc~construct_iso8601time

Source Code

   pure function undelimit(string, delimiter) result(undelimited)
      character(len=*), intent(in) :: string
      character, intent(in) :: delimiter
      character(len=len(string)) :: undelimited
      integer :: i
      integer :: j

      undelimited = ''
      j = 0
      do i=1,len(string)
        if(string(i:i) == delimiter) cycle
        j = j + 1
        undelimited(j:j) = string(i:i)
      end do
   end function undelimit