1 subroutine read_tablem (vals,num_vals,eofflg,nlines,numerr)
41 integer noerr, error, notext
42 parameter(noerr = 0, error = 1, notext = 0)
44 parameter(max_fields = 10)
48 character currline*120
51 character field(max_fields)*80,
53 + keyword*(keyword_len)
67 call
get_next_line(currline, field, nlines, eofflg, max_fields)
68 if (eofflg .eq. error)
return
70 if (num_vals .lt. max_tablem_vals)
then
81 if ((flag1+flag2) .eq. noerr)
then
82 num_vals = num_vals + 2
84 keyword = field(1)(1:keyword_len)
85 if (keyword .ne. k_last_entry)
then
95 keyword = field(1)(1:keyword_len)
96 if (keyword .ne. k_last_entry)
then
111 if (limit .eq. error)
then
112 write(9,
'(A/A,i3,A)')
113 &
'0',
'Error, too many table values entered, only ',
114 & max_table_points,
' points allowed!'
subroutine read_tablem(vals, num_vals, eofflg, nlines, numerr)
subroutine get_next_line(currline, field, nlines, eofflg, max_fields)
subroutine print_bad_line(currline, nlines, numerr)
subroutine text_to_real(text, rvalue, flag)