Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
zdemout.h
Go to the documentation of this file.
1 c *****************************************************************************
2 c Common blocks for SCREAMER output - plotting, printing, filing, and tabling.
3 c Use: include 'zdemout.h' as well as: include 'zdemmax.h'
4 c *****************************************************************************
5 c
6 c Modifications:
7 c 10/14/93, KWS: added MFI CB common block setup
8 c 06/07/95, MLK: added counter for CSV output types
9 c 08/12/97, KWS: added Cathode Current Diagnostic common block
10 c 06/09/97, KWS: Added multiple shell parameters
11 c 12/23/97, MLK: added counter for SFC output types
12 c 2014-02-06 RBS: Changed real*4 to real
13 c Explicit real definition in common/shellparm/
14 c Reordered variables in common/shellparm/ 64 bit first
15 c Fixed a bug in which not all of the reals defined for
16 c the common/shellparm/ were in the common block
17 c 2014-02-07 RBS: Fixed a bug in which not all of the reals and integers
18 c defined for the common/outstuff/ were in that
19 c common block
20 c Reordered the variables in common/outstuff/ 64 bit
21 c 2014-05-02 RBS: changed integer*4 to integer
22 c
23 c file zdemout.h
24 c ***** The common block for plotting *****
25 c ***** Stacked for 64 bit *****
26 c
27 c Note: outdata and timeout are reals that are written to disk
28 c these should be single precision real*4 to prevent odd
29 c things from happening with the 1PE12.4 write format
30 c
31 
32  real
33  & saveout1(maxout), saveout2(maxout),
36  & val1(maxout), val2(maxout),
38 
39  real*4
40  & outdata(max_plot_points,maxout), timeout(max_plot_points,maxout)
41 
42  integer
43  & iblkout(maxout), indices(maxout), iouttype(maxout),
44  & itimeflg(maxout), itypout(maxout),
45  & ixblkout(maxout), ixbrnout(maxout),
46  & ixlstnodout(maxout), ixnodout(maxout),
49 
50  character
51  & lblout(maxout)*80,
52  & lblout_temp(maxout)*23,
53  & ylblout(maxout)*11,
54  & tagout(maxout)*8
55 
56  logical radyields
57 c
58  common /outstuff/
59  & saveout1, saveout2,
60  & saveout3, saveout4,
61  & tbegout, tendout,
62  & val1, val2,
63  & yminout, ymaxout,
64  & outdata, timeout,
66  & itimeflg, itypout,
67  & ixblkout, ixbrnout,
71  & lblout,
72  & lblout_temp,
73  & ylblout,
74  & tagout,
75  & radyields
76 c
77  integer outunit
78  parameter (outunit=12)
79 
80  character xlblout*8
81  parameter (xlblout = 'Time sec')
82 c
83  integer newfile, oldfile, fflag
84  parameter (newfile=1, oldfile=2)
85 c
86 c ***** The common block for foil or gas puff parameters *****
87 c ***** Stacked for 64 bit *****
88 c
89  real
90  & foilrad, foilvel, foilacc, foilke,
91  & gasrad, gasvel, gasacc, gaske,
92  & yw_al,ym_al,yw_ar,ym_ar,yw_cu,ym_cu,
93  & yw_kr,ym_kr,yw_xe,ym_xe
94 c
95  common /fiparm/
96  & foilrad, foilvel, foilacc, foilke,
97  & gasrad, gasvel, gasacc, gaske,
98  & yw_al,ym_al,yw_ar,ym_ar,yw_cu,ym_cu,
99  & yw_kr,ym_kr,yw_xe,ym_xe
100 c
101 c ***** The common block for Toms sw parameters *****
102 c
103  real radch1
104  common /tswparm/ radch1
105 c
106 c ***** The common block for MFI CB parameters *****
107 c
108  real efld, bfld, xmfi
109  common /mfiparm/ efld, bfld, xmfi
110 c
111 c ***** The common block for the Cathode Current Diagnostic
112 c ***** Stacked for 64 bit *****
113 c
114  real
115  & ccathode(max_mzflowblocks), cplasma(max_mzflowblocks),
116  & measdzflow(max_mzflowblocks), zofmzflow(max_mzflowblocks)
117  integer
118  & mzflowblock
119 
120  common /mzflowparam/
121  & ccathode, cplasma, measdzflow, zofmzflow,
122  & mzflowblock
123 
124 c
125 c ***** Common block for multiple shell model *****
126 c ***** Stacked for 64 bit *****
127 c
128  parameter (max_pwl_pairs = 401)
129 
130  real
131  & shellmass(max_shells), shellradius(max_shells),
132  & shellind(max_shells), shellcurr(max_shells+1),
133  & acceleration(max_shells), svelocity(max_shells),
134  & shellparms(2*max_pwl_pairs),
135  & shellrad, shellvel, shellacc, shellke, shellm,
136  & rtrap(max_shells), itrap(max_shells)
137 
138  integer
139  & numshells, shell(max_shells)
140  logical
141  & trapped
142 
143  common /shellparm/
144  & shellmass, shellradius,
145  & shellind, shellcurr,
146  & acceleration, svelocity,
147  & shellparms,
148  & shellrad, shellvel, shellacc, shellke, shellm,
149  & rtrap, itrap,
150  & numshells, shell,
151  & trapped
152 
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character tendout
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character timeout
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numout
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numprt
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character ymaxout
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & yminout
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & saveout3
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numpff
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & ylblout
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character val2
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output plotting
Definition: zdemout.h:2
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numtab
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & tagout
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numufo
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & ixlstnodout
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character saveout2
Definition: zdemout.h:59
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 c &exitting c a13 c c c c c c c c102 c &described as a function of time c c c &described as a function of time c c c &function of time c c shell c &min A K c &trapped field c153 c c c Sin c c c remaining calls in rdscrelem c Tabular a10 Cond c c c &used with this model c Exponential model of a resistive c c c Rise model of a resistive c c Z FLOW POS model
Definition: zdemfmt.h:131
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numidr
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & ixblkout
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & lblout
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character iouttype
Definition: zdemout.h:59
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 RBS
Definition: zdemfmt.h:7
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numcsv
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & outdata
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & val1
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & lblout_temp
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character indices
Definition: zdemout.h:59
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 c &exitting c a13 c c c c c c c c102 c &described as a function of time c c c &described as a function of time c c c &function of time c c shell c &min A K c &trapped field c153 c c c Sin c c c remaining calls in rdscrelem c Tabular a10 Cond c c c &used with this model c Exponential model of a resistive c c c Rise model of a resistive c c Z FLOW POS c c c c SW1 c c c158 MFI Insulator CB c c c c161 Z FLOW Plasma Loss Current c c c Applied B Diode c &Ion Ion c c c c Initial c PRINT Output Request for block
Definition: zdemfmt.h:192
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & tbegout
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character ixnodout
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character saveout4
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numplt
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c maxout
Definition: zdemout.h:40
c *****************************************************************************c Common blocks for SCREAMER output and tabling c MLK
Definition: zdemout.h:2
c *****************************************************************************c Common blocks for SCREAMER output printing
Definition: zdemout.h:2
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line c
Definition: zdemfmt.h:7
c *****************************************************************************c Common blocks for SCREAMER output filing
Definition: zdemout.h:2
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 format(' ', 'Input file read with no errors.') c 4 format(' '
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character itypout
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & itimeflg
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c KWS
Definition: zdemout.h:2
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numfil
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character numsfc
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character ixbrnout
Definition: zdemout.h:59
c *****************************************************************************c Common blocks for SCREAMER output and tabling c Use
Definition: zdemout.h:2
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & iblkout
Definition: zdemout.h:59
c This is a Fortran header file
Definition: sfc.h:3