46 maxfpts = max_plot_points
48 detail_prints = detail_prints_min
52 do i = 1, max_switch_points
62 read (lunit, 100) title
71 call
get_next_line(currline, field, nlines, eofflg, max_fields)
72 if (eofflg .eq. err)
then
76 keyword = field(1)(1:keyword_len)
80 if (keyword .eq. k_plot_grid)
then
81 if (field(2)(1:1) .eq. k_yes_grid)
then
87 else if (keyword .eq. k_echo)
then
88 if (field(2)(1:1) .eq. k_yes_echo)
then
94 else if (keyword .eq. k_detail_prints)
then
95 if (field(2)(1:keyword_len) .eq. k_detail_prints_full)
then
96 detail_prints = detail_prints_full
101 else if (keyword .eq. k_time_step)
then
103 if (flag .eq. noerr)
then
112 else if (keyword .eq. k_end_time)
then
114 if (flag .eq. noerr)
then
123 else if (keyword .eq. k_num_prints)
then
125 if (flag .eq. noerr)
then
134 else if (keyword .eq. k_num_cycles)
then
135 keychar = field(2)(1:1)
136 if (keychar .eq. k_all_cycles)
then
139 else if (keychar .eq. k_one_cycle)
then
148 else if (keyword .eq. k_res_time)
then
150 if (flag .eq. noerr)
then
159 else if (keyword .eq. k_maxfpts)
then
161 if (flag .eq. noerr)
then
162 if (jmax .le. max_plot_points)
then
171 else if (keyword .eq. k_switch_time)
then
172 call
read_vector(switch_time, num_pts, eofflg, nlines, numerr)
176 else if (keyword .eq. k_branch)
then
181 else if ((keyword(1:1) .eq. comment_key) .or.
182 + (keyword(1:1) .eq. diaglabel_key) .or.
183 + (keyword(1:1) .eq. diaglabel_altkey) )
then
subroutine readscreamerparameters(status)
subroutine get_next_line(currline, field, nlines, eofflg, max_fields)
subroutine text_to_int(text, int, flag)
subroutine read_vector(vals, num_vals, eofflg, nlines, numerr)
subroutine print_bad_line(currline, nlines, numerr)
subroutine text_to_real(text, rvalue, flag)