37     integer :: i, j, ij, k, s_i, err, ios, length  local
49     s_i = 1
55       if (s_i>len(s)) then
59       k = verify(s(s_i:), achar(10)//achar(13))
63       elseif (s(s_i+k-1:s_i+k-1)=="""") then
65         s_i = s_i + k
68           k = index(s(s_i:), """")
73           k = s_i + k - 1
74           s2(m:) = s(s_i:k)
75           m = m + (k-s_i+1)
82           s_i = k + 1
83           if (s_i > len(s)) then
90         k  = scan(s(s_i:), whitespace)
96         s_i = s_i + k - 1
97         k = scan(s(s_i:), achar(10)//achar(13)//",")
102           k = s_i + k - 2
104         if (index(s(s_i:k), """")/=0) then
110       s_i = k + 2
115         k = index(s(s_i:), separator)
117         k = verify(s(s_i:), whitespace)
119         s_i = s_i + k - 1
120         k = scan(s(s_i:), whitespace)
125         k = s_i + k - 2
128       s_i = k + 2
129       if (s_i>len(s)) exit loop
149     integer :: i, j, ij, k, s_i, err, ios, length  local
153     s_i = 1
158       k = verify(s(s_i:), whitespace)
160       s_i = s_i + k - 1
161       if (s(s_i:s_i)==",") then
162         if (s_i+1>len(s)) then
166         k = verify(s(s_i+1:), whitespace)
167         s_i = s_i + k - 1
169       k = scan(s(s_i:), whitespace//",")
173         k = s_i + k - 2
175       if (.not.((s(s_i:k)=="true".or.s(s_i:k)=="1").or. & 
176           (s(s_i:k)=="false".or.s(s_i:k)=="0"))) then
181       s_i = k + 2
182       if (ij<length.and.s_i>len(s)) exit loop
187     if (verify(s(s_i:), whitespace)/=0) num = 0
203     integer :: i, j, ij, k, s_i, err, ios, length  local
206     s_i = 1
211       k = verify(s(s_i:), whitespace)
213       s_i = s_i + k - 1
214       if (s(s_i:s_i)==",") then
215         if (s_i+1>len(s)) then
219         k = verify(s(s_i+1:), whitespace)
220         s_i = s_i + k - 1
222       k = scan(s(s_i:), whitespace//",")
226         k = s_i + k - 2
228       read(s(s_i:k), *, iostat=ios) dummy_data
234       s_i = k + 2
235       if (ij<length.and.s_i>len(s)) exit loop
240     if (verify(s(s_i:), whitespace)/=0) num = 0
256     integer :: i, j, ij, k, s_i, err, ios, length  local
260     s_i = 1
265       k = verify(s(s_i:), whitespace)
267       s_i = s_i + k - 1
268       if (s(s_i:s_i)==",") then
269         if (s_i+1>len(s)) then
273         k = verify(s(s_i+1:), whitespace)
274         s_i = s_i + k - 1
276       k = scan(s(s_i:), whitespace//",")
280         k = s_i + k - 2
282       read(s(s_i:k), *, iostat=ios) dummy_data
288       s_i = k + 2
289       if (ij<length.and.s_i>len(s)) exit loop
294     if (verify(s(s_i:), whitespace)/=0) num = 0
310     integer :: i, j, ij, k, s_i, err, ios, length  local
314     s_i = 1
319       k = verify(s(s_i:), whitespace)
321       s_i = s_i + k - 1
322       if (s(s_i:s_i)==",") then
323         if (s_i+1>len(s)) then
327         k = verify(s(s_i+1:), whitespace)
328         s_i = s_i + k - 1
330       k = scan(s(s_i:), whitespace//",")
334         k = s_i + k - 2
336       read(s(s_i:k), *, iostat=ios) dummy_data
342       s_i = k + 2
343       if (ij<length.and.s_i>len(s)) exit loop
348     if (verify(s(s_i:), whitespace)/=0) num = 0
364     integer :: i, j, ij, k, s_i, err, ios, length  local
368     s_i = 1
374       k = verify(s(s_i:), whitespace)
376       s_i = s_i + k - 1
377       select case (s(s_i:s_i))
380         k = verify(s(s_i:), whitespace)
385         s_i = s_i + k
387         k = verify(s(s_i:), whitespace)
392         s_i = s_i + k - 1
400         k = index(s(s_i:), ")+i(")
402         k = scan(s(s_i:), whitespace//",")
408       k = s_i + k - 2
409       read(s(s_i:k), *, iostat=ios) r
415         s_i = k + 5
416         if (s_i>len(s)) then
421         s_i = k + 2
424         k = index(s(s_i:), ")")
429         k = s_i + k - 2
431         k = scan(s(s_i:), whitespace//",")
435           k = s_i + k - 2
438       read(s(s_i:k), *, iostat=ios) c
444       s_i = k + 2
445       if (ij<length.and.s_i>len(s)) exit loop
450     if (verify(s(s_i:), whitespace)/=0) num = 0
466     integer :: i, j, ij, k, s_i, err, ios, length  local
470     s_i = 1
476       k = verify(s(s_i:), whitespace)
478       s_i = s_i + k - 1
479       select case (s(s_i:s_i))
482         k = verify(s(s_i:), whitespace)
487         s_i = s_i + k
489         k = verify(s(s_i:), whitespace)
494         s_i = s_i + k - 1
502         k = index(s(s_i:), ")+i(")
504         k = scan(s(s_i:), whitespace//",")
510       k = s_i + k - 2
511       read(s(s_i:k), *, iostat=ios) r
517         s_i = k + 5
518         if (s_i>len(s)) then
523         s_i = k + 2
526         k = index(s(s_i:), ")")
531         k = s_i + k - 2
533         k = scan(s(s_i:), whitespace//",")
537           k = s_i + k - 2
540       read(s(s_i:k), *, iostat=ios) c
546       s_i = k + 2
547       if (ij<length.and.s_i>len(s)) exit loop
552     if (verify(s(s_i:), whitespace)/=0) num = 0