1 subroutine read_vector (vals,num_vals,eofflg,nlines,numerr)
37 integer noerr, error, notext
38 parameter(noerr = 0, error = 1, notext = 0)
40 parameter(max_fields = 10)
44 character currline*120
46 character field(max_fields)*80,
48 + keyword*(keyword_len)
62 call
get_next_line(currline, field, nlines, eofflg, max_fields)
63 if (eofflg .eq. error)
return
65 if (num_vals .lt. max_switch_points)
then
75 if (flag1 .eq. noerr)
then
76 num_vals = num_vals + 1
78 keyword = field(1)(1:keyword_len)
79 if (keyword .ne. k_last_entry)
then
89 keyword = field(1)(1:keyword_len)
91 if (keyword .ne. k_last_entry)
then
107 if (limit .eq. error)
then
108 write(9,
'(A/A,i3,A)')
109 &
'0',
'Error, too many table values entered, only ',
110 & max_switch_points,
' points allowed!'
114 & , vals(1), vals(2), vals(3),vals(4), vals(5),vals(6)
subroutine get_next_line(currline, field, nlines, eofflg, max_fields)
subroutine read_vector(vals, num_vals, eofflg, nlines, numerr)
subroutine print_bad_line(currline, nlines, numerr)
subroutine text_to_real(text, rvalue, flag)