Subroutine parse_string_orig

Parse a string into fields delimited by certain characters. On exit the fields array will contain one field per entry and num_fields gives the total number of fields. status will be given the error status (if present) and so can be used to tell if an end-of-file occurred.

this -- character(*), intent(in)

delimiters -- character(*), intent(in)

fields -- character(*), dimension(:), intent(inout)

num_fields -- integer, intent(out)

rewind subroutine