12 integer nparams, eofflg, nlines, numerr
14 character currline*120
40 integer noerr, error, notext
41 parameter(noerr = 0, error = 1, notext = 0)
42 parameter(max_pwl_pairs = 401)
43 parameter(max_pwl_parms = max_pwl_pairs*2)
44 parameter(max_fields = 10)
45 character field(max_fields)*80, keyword*(keyword_len)
56 call
get_next_line(currline, field, nlines, eofflg, max_fields)
57 if (eofflg .eq. error)
then
61 if (nparams .lt. max_pwl_parms)
then
72 if ((flag1+flag2) .eq. noerr)
then
75 keyword = field(1)(1:keyword_len)
76 if (keyword .ne. k_last_entry)
then
86 keyword = field(1)(1:keyword_len)
87 if (keyword .ne. k_last_entry)
then
102 if (limit .eq. error)
then
103 write(9,41) max_pwl_pairs
104 41
format (
'0',
'Error, too many table values entered, only ',
105 &
i3,
' points allowed!')
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)
subroutine read_pwl_parms(parms, nparams, eofflg, nlines, numerr)