Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
prscrparm.f
Go to the documentation of this file.
1 c----------------------------------------------------------------------
2 c @(#)prcrparm.f version 1.0 created 06/15/2005 by Mathias Bavay
3 c----------------------------------------------------------------------
4 c---------------------------------------------------------------------
5 c
6 c This subroutine does prints on screen the general parameters
7 c read from the begining of an input deck.
8 c
9 c Modifications:
10 c 2008-12-08 RBS Return added
11 c Formats from undefined writes included
12 c 2009-09-11 RBS Removed commented out grid commands
13 c and user subroutine comments
14 c---------------------------------------------------------------------
15 
17 
18  include 'zdemmax.h'
19  include 'zdemcomm.h'
20  include 'zdemparm.h'
21  include 'rdscrdat.h'
22 
23  if (tstepflg .eq. noerr) then
24  write(9,*) 'Time step ', ht
25  else
26  write(9,*) 'time step '
27  numerr = numerr + 1
28  end if
29  if (restflg .eq. noerr) then
30  write(9,*) 'Default Res-time', res_time
31  else
32  write(9,*) 'default res-time'
33  numerr = numerr + 1
34  end if
35  if (endtflg .eq. noerr) then
36  write(9,*) 'End time ', tmax
37  else
38  write(9,*) 'end time '
39  numerr = numerr + 1
40  end if
41  if (nprtflg .eq. noerr) then
42  write(9,*) 'Number of prints', nprint
43  else
44  write(9,*) 'number of prints'
45  numerr = numerr + 1
46  end if
47  write(9,*) 'max-pnts stored ', maxfpts
48  if (ncyclflg .eq. noerr) then
49  if (iset .eq. all_cycles) then
50  write(9,*)
51  else
52  write(9,*)
53  end if
54  else
55  write(9,*) 'execute cycles '
56  numerr = numerr + 1
57  end if
58  return
59  end
subroutine printscreamerparameters
Definition: prscrparm.f:16