2 & (currline, field, nlines, eofflg, max_fields)
15 character*(*) currline
16 character*(*) field(*)
17 integer nlines, eofflg, max_fields
26 parameter(error = 1, noerr=0)
33 read (lunit,
'(A120)', end=1000) currline
40 if (istart .ne. notext)
then
41 if (currline(istart:istart) .ne.
'!')
then
42 call
get_field(currline(istart:iend), field, max_fields)
subroutine get_next_line(currline, field, nlines, eofflg, max_fields)
subroutine conv_to_ucase(text)
subroutine strip_blanks_commas(text, start, end)
subroutine get_field(text, field, max_fields)
subroutine tab2blnk(text)