1 c *****************************************************************************
3 c
Use: include
'zdemout.h' as well as: include
'zdemmax.h'
4 c *****************************************************************************
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
20 c Reordered the variables in common/outstuff/ 64 bit
21 c 2014-05-02
RBS: changed integer*4 to integer
25 c ***** Stacked
for 64 bit *****
28 c these should be single precision real*4 to prevent odd
29 c things from happening with the 1PE12.4 write
format
78 parameter (outunit=12)
81 parameter (xlblout = 'Time sec')
83 integer newfile, oldfile, fflag
84 parameter (newfile=1, oldfile=2)
86 c ***** The common
block for foil or gas puff parameters *****
87 c ***** Stacked for 64 bit *****
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
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
101 c ***** The common
block for Toms sw parameters *****
104 common /tswparm/ radch1
106 c ***** The common
block for MFI CB parameters *****
108 real efld, bfld, xmfi
109 common /mfiparm/ efld, bfld, xmfi
111 c ***** The common
block for the Cathode Current Diagnostic
112 c ***** Stacked for 64 bit *****
115 & ccathode(max_mzflowblocks), cplasma(max_mzflowblocks),
116 & measdzflow(max_mzflowblocks), zofmzflow(max_mzflowblocks)
121 & ccathode, cplasma, measdzflow, zofmzflow,
125 c ***** Common
block for multiple shell
model *****
126 c ***** Stacked for 64 bit *****
128 parameter (max_pwl_pairs = 401)
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)
139 & numshells, shell(max_shells)
144 & shellmass, shellradius,
145 & shellind, shellcurr,
146 & acceleration, svelocity,
148 & shellrad, shellvel, shellacc, shellke, shellm,
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character tendout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character timeout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numprt
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character ymaxout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & yminout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & saveout3
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numpff
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & ylblout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character val2
c *****************************************************************************c Common blocks for SCREAMER output plotting
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numtab
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & tagout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numufo
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & ixlstnodout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character saveout2
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
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numidr
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & ixblkout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & lblout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character iouttype
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
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numcsv
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & outdata
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & val1
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & lblout_temp
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character indices
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
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & tbegout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character ixnodout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character saveout4
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numplt
c *****************************************************************************c Common blocks for SCREAMER output and tabling c maxout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c MLK
c *****************************************************************************c Common blocks for SCREAMER output printing
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
c *****************************************************************************c Common blocks for SCREAMER output filing
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
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & itimeflg
c *****************************************************************************c Common blocks for SCREAMER output and tabling c KWS
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numfil
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character numsfc
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character ixbrnout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c Use
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & iblkout
c This is a Fortran header file