1 subroutine readctab (parms, nparms, eofflg, nlines, nerrors)
12 integer nparms, eofflg, nlines, nerrors
37 integer flag1, flag2, flag3
38 integer noerr, error, notext
39 parameter(noerr = 0, error = 1, notext = 0)
40 parameter(max_pwl_parms = 402)
41 parameter(max_pwl_pairs = 201)
42 parameter(max_fields = 10)
43 character field(max_fields)*80, keyword*(keyword_len)
44 character currline*120
56 call
get_next_line(currline, field, nlines, eofflg, max_fields)
57 if (eofflag .eq. error)
return
59 if (nparms .lt. max_pwl_parms)
then
71 if ((flag1+flag2+flag3) .eq. noerr)
then
74 keyword = field(1)(1:keyword_len)
75 if (keyword .ne. k_last_entry)
then
85 keyword = field(1)(1:keyword_len)
86 if (keyword .ne. k_last_entry)
then
101 if (limit .eq. error)
then
102 write(9,41) max_pwl_pairs
103 41
format (
'0',
'Error, too many table values entered, only ',
104 &
i3,
' points allowed!')
subroutine readctab(parms, nparms, eofflg, nlines, nerrors)
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line corrected spelling errors in format added statement for Zflow Plasma Loss Model added format for CSV output type fixed more lines longer than characters added format for Measure Zflow Block and forward c reverse current directions in Zflow plasma loss c and Zflow POS models added format for SFC output type c removed from all code calls c c c c c a80 c i10 c No grids on plots c Do not write files containing the plotted points c Execute only one cycle c Do not echo the setup parameters and indicies c i3
subroutine get_next_line(currline, field, nlines, eofflg, max_fields)
subroutine print_bad_line(currline, nlines, numerr)
subroutine text_to_real(text, rvalue, flag)