13 integer num_parms, eofflg, nlines, numerr
15 character currline*120
29 integer noerr, error, notext
30 parameter(noerr = 0, error = 1, notext = 0)
31 parameter(max_fields = 10)
32 parameter(max_lsf_parms = 10)
33 character field(max_fields)*80
37 call
get_next_line(currline, field, nlines, eofflg, max_fields)
38 if (eofflg .eq. error)
return
44 do while ((flag .eq. noerr) .and. (i .lt. max_lsf_parms))
52 if (flag .eq. error)
then
53 call
strip(field(i), istart, iend)
54 if (istart .eq. notext)
then
subroutine get_next_line(currline, field, nlines, eofflg, max_fields)
subroutine strip(text, start, end)
subroutine print_bad_line(currline, nlines, numerr)
subroutine read_lsf_parms(parms, num_parms, eofflg, nlines, numerr)
subroutine text_to_real(text, rvalue, flag)