33 character blank*1, comma*1
34 parameter(blank =
' ', comma =
',')
35 parameter(no_text = 0)
49 if (max_fields .lt. 1)
then
57 if (istart .eq. no_text)
then
74 do while ((j .lt. max_fields) .and. (i .le. iend))
81 do while ((curr_char .ne. blank)
82 & .and. (curr_char .ne. comma)
83 & .and. (i .lt. iend))
99 kfield = k - istart_temp + 1
100 field(j)(kfield:kfield) = text(k:k)
115 if (i .lt. iend)
then
116 curr_char = text(i:i)
117 do while ((curr_char .eq. blank) .or. (curr_char .eq. comma))
119 curr_char = text(i:i)
subroutine conv_to_ucase(text)
subroutine strip_blanks_commas(text, start, end)
subroutine get_field(text, field, max_fields)