23 if (tstepflg .eq. noerr)
then
24 write(9,*)
'Time step ', ht
26 write(9,*)
'time step '
29 if (restflg .eq. noerr)
then
30 write(9,*)
'Default Res-time', res_time
32 write(9,*)
'default res-time'
35 if (endtflg .eq. noerr)
then
36 write(9,*)
'End time ', tmax
38 write(9,*)
'end time '
41 if (nprtflg .eq. noerr)
then
42 write(9,*)
'Number of prints', nprint
44 write(9,*)
'number of prints'
47 write(9,*)
'max-pnts stored ', maxfpts
48 if (ncyclflg .eq. noerr)
then
49 if (iset .eq. all_cycles)
then
55 write(9,*)
'execute cycles '
subroutine printscreamerparameters