1 c *****************************************************************************
2 c Parameters
for output selections.
3 c
use: include
'zdempprm.h'
5 c ---------------------------------------------------------------------
7 c KWS, 10/14/93, Added MFI CB parameters.
8 c Added callouts
for the radiation
yield in the
10 c
MLK, 03/23/95, Added
line: parameter (ip_gke = 71) to fix
11 c someone's previous programming error
12 c KWS, 06/06/95, Added keywords and
indices for Zflow Plasma
13 c current loss
model outputs. Also added a new
15 c MLK, 06/07/95, Added keywords and
indices for CSV output types
16 c KWS, 08/12/97, Added keywords and
indices for Zflow
Block outputs
17 c MLK, 12/23/97, Added keywords and
indices for SFC output types
18 c 2014-05-05
RBS: Changed integer*4 to integer
20 c ---------------------------------------------------------------------
22 parameter (pkeyword_len = 3)
24 c ***** Output Format Keywords *****
26 character*(pkeyword_len)
36 parameter (k_pltpts = 'PLO')
37 parameter (k_prtpts = 'PRI')
38 parameter (k_filpts = 'FIL')
39 parameter (k_tabpts = 'TAB')
40 parameter (k_ufopts = 'UFO')
41 parameter (k_idrpts = 'IDR')
42 parameter (k_pffpts = 'PFF')
43 parameter (k_csvpts = 'CSV')
44 parameter (k_sfcpts = 'SFC')
46 parameter (ip_pltpts = 1)
47 parameter (ip_prtpts = 2)
48 parameter (ip_filpts = 3)
49 parameter (ip_tabpts = 4)
50 parameter (ip_ufopts = 5)
51 parameter (ip_idrpts = 6)
52 parameter (ip_pffpts = 7)
53 parameter (ip_csvpts = 8)
54 parameter (ip_sfcpts = 9)
57 & oplot, oprint, ofile, otable, oidr, oufo, opff, ocsv, osfc
60 parameter (oprint = 2)
62 parameter (otable = 4)
69 character*(pkeyword_len)
71 parameter (k_wholestep = 'WHO')
73 c ***** Keywords and indicies for the various resistor types *****
75 character*(pkeyword_len)
94 parameter (k_vr1 = 'VR1')
95 parameter (k_vr2 = 'VR2')
96 parameter (k_vr3 = 'VR3')
97 parameter (k_ir1 = 'IR1')
98 parameter (k_ir2 = 'IR2')
99 parameter (k_ir3 = 'IR3')
100 parameter (k_pr1 = 'PR1')
101 parameter (k_pr2 = 'PR2')
102 parameter (k_pr3 = 'PR3')
103 parameter (k_er1 = 'ER1')
104 parameter (k_er2 = 'ER2')
105 parameter (k_er3 = 'ER3')
106 parameter (k_r1 = '
R1 ')
107 parameter (k_r2 = '
R2 ')
108 parameter (k_r3 = '
R3 ')
109 parameter (k_qr1 = 'QR1')
110 parameter (k_qr2 = 'QR2')
111 parameter (k_qr3 = 'QR3')
113 parameter (ip_vr1 = 1)
114 parameter (ip_vr2 = 2)
115 parameter (ip_vr3 = 3)
116 parameter (ip_ir1 = 4)
117 parameter (ip_ir2 = 5)
118 parameter (ip_ir3 = 6)
119 parameter (ip_pr1 = 7)
120 parameter (ip_pr2 = 8)
121 parameter (ip_pr3 = 9)
122 parameter (ip_er1 = 10)
123 parameter (ip_er2 = 11)
124 parameter (ip_er3 = 12)
125 parameter (ip_r1 = 13)
126 parameter (ip_r2 = 14)
127 parameter (ip_r3 = 15)
128 parameter (ip_qr1 = 16)
129 parameter (ip_qr2 = 17)
130 parameter (ip_qr3 = 18)
132 c ***** Keywords and indicies for the various capacitor types *****
134 character*(pkeyword_len)
153 parameter (k_vc1 = 'VC1')
154 parameter (k_vc3 = 'VC3')
155 parameter (k_ic1 = 'IC1')
156 parameter (k_ic3 = 'IC3')
157 parameter (k_pc1 = 'PC1')
158 parameter (k_pc3 = 'PC3')
159 parameter (k_ec1 = 'EC1')
160 parameter (k_ec3 = 'EC3')
161 parameter (k_c1 = '
C1 ')
162 parameter (k_c3 = '
C3 ')
163 parameter (k_qc1 = 'QC1')
164 parameter (k_qc3 = 'QC3')
165 parameter (k_c1e = 'C1E')
166 parameter (k_c3e = 'C3E')
167 parameter (k_pcdot = 'PCD')
168 parameter (k_ecdot = 'ECD')
169 parameter (k_pccon = 'PCC')
170 parameter (k_eccon = 'ECC')
172 parameter (ip_vc1 = 19)
173 parameter (ip_vc3 = 20)
174 parameter (ip_ic1 = 21)
175 parameter (ip_ic3 = 22)
176 parameter (ip_pc1 = 23)
177 parameter (ip_pc3 = 24)
178 parameter (ip_ec1 = 25)
179 parameter (ip_ec3 = 26)
180 parameter (ip_c1 = 27)
181 parameter (ip_c3 = 28)
182 parameter (ip_qc1 = 29)
183 parameter (ip_qc3 = 30)
184 parameter (ip_c1e = 53)
185 parameter (ip_c3e = 54)
186 parameter (ip_pcdot = 60)
187 parameter (ip_ecdot = 61)
188 parameter (ip_pccon = 62)
189 parameter (ip_eccon = 63)
191 c ***** Keywords and indicies for the inductor *****
193 character*(pkeyword_len)
206 parameter (k_vl2 = 'VL2')
207 parameter (k_il2 = 'IL2')
208 parameter (k_pl2 = 'PL2')
209 parameter (k_el2 = 'EL2')
210 parameter (k_l2 = '
L2 ')
211 parameter (k_fl2 = 'FL2')
212 parameter (k_ql2 = 'QL2')
213 parameter (k_l2e = 'L2E')
214 parameter (k_pldot = 'PLD')
215 parameter (k_eldot = 'ELD')
216 parameter (k_plcon = 'PLC')
217 parameter (k_elcon = 'ELC')
219 parameter (ip_vl2 = 31)
220 parameter (ip_il2 = 32)
221 parameter (ip_pl2 = 33)
222 parameter (ip_el2 = 34)
223 parameter (ip_l2 = 35)
224 parameter (ip_fl2 = 36)
225 parameter (ip_ql2 = 37)
226 parameter (ip_l2e = 55)
227 parameter (ip_pldot = 64)
228 parameter (ip_eldot = 65)
229 parameter (ip_plcon = 66)
230 parameter (ip_elcon = 67)
232 c ***** Keywords and indicies for the various source types *****
234 character*(pkeyword_len)
240 parameter (k_vsrc = 'VSR')
241 parameter (k_isrc = 'ISR')
242 parameter (k_psrc = 'PSR')
243 parameter (k_esrc = 'ESR')
244 parameter (k_qsrc = 'QSR')
246 parameter (ip_vsrc = 38)
247 parameter (ip_isrc = 39)
248 parameter (ip_psrc = 40)
249 parameter (ip_esrc = 41)
250 parameter (ip_qsrc = 42)
252 c ***** Keywords and indicies for gross
block types *****
254 character*(pkeyword_len)
265 parameter (k_vin = 'VIN')
266 parameter (k_iin = 'IIN')
267 parameter (k_pin = 'PIN')
268 parameter (k_ein = 'EIN')
269 parameter (k_qin = 'QIN')
270 parameter (k_vout = 'VOU')
271 parameter (k_iout = 'IOU')
272 parameter (k_pout = 'POU')
273 parameter (k_eout = 'EOU')
274 parameter (k_qout = 'QOU')
276 parameter (ip_vin = 43)
277 parameter (ip_iin = 44)
278 parameter (ip_pin = 45)
279 parameter (ip_ein = 46)
280 parameter (ip_qin = 47)
281 parameter (ip_vout = 48)
282 parameter (ip_iout = 49)
283 parameter (ip_pout = 50)
284 parameter (ip_eout = 51)
285 parameter (ip_qout = 52)
288 c ***** Keywords and indicies for foil and gas puff implosion outputs *****
290 character*(pkeyword_len)
315 character*(pkeyword_len)
327 parameter (k_frad = 'FRA')
328 parameter (k_fvel = 'FVE')
329 parameter (k_facc = 'FAC')
330 parameter (k_fke = 'FKE')
331 parameter (k_grad = 'GRA')
332 parameter (k_gvel = 'GVE')
333 parameter (k_gacc = 'GAC')
334 parameter (k_gke = 'GKE')
336 parameter (k_yw_al = 'YWL')
337 parameter (k_ym_al = 'YML')
338 parameter (k_yw_ar = 'YWA')
339 parameter (k_ym_ar = 'YMA')
340 parameter (k_yw_cu = 'YWC')
341 parameter (k_ym_cu = 'YMC')
342 parameter (k_yw_kr = 'YWK')
343 parameter (k_ym_kr = 'YMK')
344 parameter (k_yw_xe = 'YWX')
345 parameter (k_ym_xe = 'YMX')
347 parameter (k_srad = 'SRA')
348 parameter (k_svel = 'SVE')
349 parameter (k_sacc = 'SAC')
350 parameter (k_ske = 'SKE')
351 parameter (k_smass = 'SMA')
352 parameter (k_srad1 = 'SR1')
353 parameter (k_srad2 = 'SR2')
354 parameter (k_srad3 = 'SR3')
355 parameter (k_srad4 = 'SR4')
356 parameter (k_srad5 = 'SR5')
357 parameter (k_scur1 = 'SC1')
358 parameter (k_scur2 = 'SC2')
359 parameter (k_scur3 = 'SC3')
360 parameter (k_scur4 = 'SC4')
361 parameter (k_scur5 = 'SC5')
363 parameter (ip_frad = 56)
364 parameter (ip_fvel = 57)
365 parameter (ip_facc = 58)
366 parameter (ip_fke = 59)
367 parameter (ip_grad = 68)
368 parameter (ip_gvel = 69)
369 parameter (ip_gacc = 70)
370 parameter (ip_gke = 71)
371 parameter (ip_yw_al = 101)
372 parameter (ip_ym_al = 102)
373 parameter (ip_yw_ar = 103)
374 parameter (ip_ym_ar = 104)
375 parameter (ip_yw_cu = 105)
376 parameter (ip_ym_cu = 106)
377 parameter (ip_yw_kr = 107)
378 parameter (ip_ym_kr = 108)
379 parameter (ip_yw_xe = 109)
380 parameter (ip_ym_xe = 110)
381 parameter (ip_srad = 111)
382 parameter (ip_svel = 112)
383 parameter (ip_sacc = 113)
384 parameter (ip_ske = 114)
385 parameter (ip_smass = 115)
386 parameter (ip_srad1 = 201)
387 parameter (ip_srad2 = 202)
388 parameter (ip_srad3 = 203)
389 parameter (ip_srad4 = 204)
390 parameter (ip_srad5 = 205)
391 parameter (ip_scur1 = 301)
392 parameter (ip_scur2 = 302)
393 parameter (ip_scur3 = 303)
394 parameter (ip_scur4 = 304)
395 parameter (ip_scur5 = 305)
397 c ***** Keywords and indicies
user variable outputs *****
399 character*(pkeyword_len)
411 parameter (k_u1 = 'U1')
412 parameter (k_u2 = 'U2')
413 parameter (k_u3 = 'U3')
414 parameter (k_u4 = 'U4')
415 parameter (k_u5 = 'U5')
416 parameter (k_u6 = 'U6')
417 parameter (k_u7 = 'U7')
418 parameter (k_u8 = 'U8')
419 parameter (k_u9 = 'U9')
420 parameter (k_u10 = 'U10')
422 parameter (ip_u1 = 72)
423 parameter (ip_u2 = 73)
424 parameter (ip_u3 = 74)
425 parameter (ip_u4 = 75)
426 parameter (ip_u5 = 76)
427 parameter (ip_u6 = 77)
428 parameter (ip_u7 = 78)
429 parameter (ip_u8 = 79)
430 parameter (ip_u9 = 80)
431 parameter (ip_u10 = 81)
433 c ***** Keywords and indicies for transmission
line outputs *****
435 character*(pkeyword_len)
441 parameter (k_edline = 'EDL')
442 parameter (k_pdline = 'PDL')
443 parameter (k_eline = 'ELI')
444 parameter (k_pline = 'PLI')
446 parameter (ip_edline = 82)
447 parameter (ip_pdline = 83)
448 parameter (ip_eline = 84)
449 parameter (ip_pline = 85)
451 c ***** Keywords and indicies for Toms sw outputs *****
453 character*(pkeyword_len) k_fc, k_fc1, k_fc2, k_fc3, k_fc4
455 parameter (k_fc = 'FCH')
456 parameter (k_fc1 = 'FC1')
457 parameter (k_fc2 = 'FC2')
458 parameter (k_fc3 = 'FC3')
459 parameter (k_fc4 = 'FC4')
461 parameter (ip_fc = 86)
463 c ***** Keywords and indicies for MFI CB outputs *****
465 character*(pkeyword_len)
470 parameter (k_efld = 'EFL')
471 parameter (k_bfld = 'BFL')
472 parameter (k_xmfi = 'XMF')
474 parameter (ip_efld = 90)
475 parameter (ip_bfld = 91)
476 parameter (ip_xmfi = 92)
478 c ***** Keywords and indicies for Zflow
model outputs *****
480 character*(pkeyword_len)
484 parameter (k_zflow = 'ZFL')
485 parameter (k_gzflow = 'GZF')
487 parameter (ip_zflow = 93)
488 parameter (ip_gzflow = 94)
491 c ***** Keywords and indicies for Zflow Plasma Current Loss Model outputs *****
493 character*(pkeyword_len)
497 parameter (k_zloss = 'CZL')
498 parameter (k_gloss = 'GLO')
500 parameter (ip_zloss = 95)
501 parameter (ip_gloss = 96)
504 c ***** Additional Keywords and indicies for the MITL Model *****
506 character*(pkeyword_len) k_aloss
508 parameter (k_aloss = 'ALO')
510 parameter (ip_aloss = 97)
514 c ***** Keywords and indicies for Measure Zflow
Block outputs *****
516 character*(pkeyword_len)
521 parameter (k_icathode = 'ICA')
522 parameter (k_iplasma = 'IPL')
523 parameter (k_zot = 'ZOT')
525 parameter (ip_icathode = 98)
526 parameter (ip_iplasma = 99)
527 parameter (ip_zot = 100)
531 c ********************************************************
c *****************************************************************************c Parameters for output selections c Added MFI CB parameters c Added callouts for the radiation yield in the c cylindrical foil model c Added line
c *****************************************************************************c Parameters for output selections c Added MFI CB parameters c Added callouts for the radiation yield in the c cylindrical foil model c Added Added keywords and indices for Zflow Plasma c current loss model outputs Also added a new c output for MITLs c Added keywords and indices for CSV output types c Added keywords and indices for Zflow Block outputs c Added keywords and indices for SFC output types c & k_tabpts
c *****************************************************************************c Parameters for output selections c Added MFI CB parameters c Added callouts for the radiation yield in the c cylindrical foil model c Added Added keywords and indices for Zflow Plasma c current loss model outputs Also added a new c output for MITLs c Added keywords and indices for CSV output types c Added keywords and indices for Zflow Block outputs c Added keywords and indices for SFC output types c & k_csvpts
c *****************************************************************************c Parameters for output selections c Added MFI CB parameters c Added callouts for the radiation yield in the c cylindrical foil model c Added Added keywords and indices for Zflow Plasma c current loss model outputs Also added a new c output for MITLs c Added keywords and indices for CSV output types c KWS
c *****************************************************************************c Parameters for output selections c Added MFI CB parameters c Added callouts for the radiation yield in the c cylindrical foil model c Added Added keywords and indices for Zflow Plasma c current loss model outputs Also added a new c output for MITLs c Added keywords and indices for CSV output types c Added keywords and indices for Zflow Block outputs c Added keywords and indices for SFC output types c & k_prtpts
c *****************************************************************************c Parameters for output selections c Added MFI CB parameters c Added callouts for the radiation yield in the c cylindrical foil model c Added Added keywords and indices for Zflow Plasma c current loss model outputs Also added a new c output for MITLs c Added keywords and indices for CSV output types c Added keywords and indices for Zflow Block outputs c Added keywords and indices for SFC output types c & k_idrpts
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 R3
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 C3
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 L2
c *****************************************************************************c Parameters for output selections c Added MFI CB parameters c Added callouts for the radiation yield in the c cylindrical foil model c Added Added keywords and indices for Zflow Plasma c current loss model outputs Also added a new c output for MITLs c Added keywords and indices for CSV output types c Added keywords and indices for Zflow Block outputs c Added keywords and indices for SFC output types c & k_filpts
c *****************************************************************************c Parameters for output selections c Added MFI CB parameters c Added callouts for the radiation yield in the c cylindrical foil model c Added Added keywords and indices for Zflow Plasma c current loss model outputs Also added a new c output for MITLs c Added keywords and indices for CSV output types c Added keywords and indices for Zflow Block outputs c Added keywords and indices for SFC output types c & k_pffpts
c *****************************************************************************c Parameters for output selections c Added MFI CB parameters c Added callouts for the radiation yield in the c cylindrical foil model c Added Added keywords and indices for Zflow Plasma c current loss model outputs Also added a new c output for MITLs c Added keywords and indices for CSV output types c Added keywords and indices for Zflow Block outputs c Added keywords and indices for SFC output types c RBS
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 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 ***** Block
c *****************************************************************************c Parameters for output selections c use
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 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 R2
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 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 R1
c *****************************************************************************c Parameters for output selections c Added MFI CB parameters c Added callouts for the radiation yield in the c cylindrical foil model c MLK
subroutine yield(Z, massm, rfm, Lzm, Kin, eta, T, Yw, Ym)
subroutine user(timestep, time, p1, p2, p3, p4, v1, v2, v3)
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 C1
c This is a Fortran header file
c *****************************************************************************c Parameters for output selections c Added MFI CB parameters c Added callouts for the radiation yield in the c cylindrical foil model c Added Added keywords and indices for Zflow Plasma c current loss model outputs Also added a new c output for MITLs c Added keywords and indices for CSV output types c Added keywords and indices for Zflow Block outputs c Added keywords and indices for SFC output types c & k_ufopts