Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
sfc.h
Go to the documentation of this file.
1 c This is a Fortran header file: sfc.h
2 c Modifications:
3 c 1/6/98, MLK: Original version
4 c
5 c Character strings for SFC data files
6 c sfc_titcol: default TITCOL string to be used when the user did not specify
7 c an output request title
8 c sfc_labcol: LABCOL (type of measurement) string
9 c sfc_unicol: UNICOL (unit of measurement) string
10 c
11  integer sfc_len
12  parameter (sfc_len = 15)
13 c
14  character*(sfc_len) sfc_tlab, sfc_tuni
15  character*(*) sfc_vlab, sfc_vuni
16  character*(*) sfc_ilab, sfc_iuni
17  character*(*) sfc_plab, sfc_puni
18  character*(*) sfc_elab, sfc_euni
19  character*(*) sfc_qlab, sfc_quni
20  character*(*) sfc_rlab, sfc_runi
21  character*(*) sfc_glab, sfc_guni
22  character*(*) sfc_llab, sfc_luni
23  character*(*) sfc_clab, sfc_cuni
24  character*(*) sfc_flab, sfc_funi
25  character*(*) sfc_celab
26  character*(*) sfc_pcdlab, sfc_ecdlab
27  character*(*) sfc_pcclab, sfc_ecclab
28  character*(*) sfc_lelab
29  character*(*) sfc_pldlab, sfc_eldlab
30  character*(*) sfc_plclab, sfc_elclab
31  character*(*) sfc_srclab
32  character*(*) sfc_inlab, sfc_outlab
33  character*(*) sfc_rdlab, sfc_lenuni
34  character*(*) sfc_vellab, sfc_veluni
35  character*(*) sfc_alab, sfc_auni
36  character*(*) sfc_klab
37  character*(*) sfc_foillab, sfc_gaslab
38  character*(*) sfc_kllab, sfc_ylab
39  character*(*) sfc_allab,sfc_arlab,sfc_culab,sfc_krlab,sfc_xelab
40  character*(*) sfc_moshlab, sfc_whitlab
41  character*(*) sfc_ulab, sfc_uuni
42  character*(*) sfc_tllab, sfc_strlab, sfc_lstlab
43  character*(*) sfc_gchlab
44  character*(*) sfc_stklab, sfc_xmlab, sfc_eflab, sfc_bflab
45  character*(*) sfc_nonuni, sfc_efuni, sfc_bfuni
46  character*(*) sfc_zflab, sfc_gzflab
47  character*(*) sfc_alslab
48  character*(*) sfc_cdlab, sfc_cduni
49  character*(*) sfc_iclab, sfc_iplab
50 c
51 c ******************** Translation Section ******************************
52 c To translate from English to French, edit the following:
53 c
54  parameter (sfc_tlab = 'Time', sfc_tuni = 'Seconds')
55  parameter (sfc_vlab = 'Voltage', sfc_vuni = 'Volts')
56  parameter (sfc_ilab = 'Current', sfc_iuni = 'Amps')
57  parameter (sfc_plab = 'Power', sfc_puni = 'Watts')
58  parameter (sfc_elab = 'Energy', sfc_euni = 'Joules')
59  parameter (sfc_qlab = 'Charge', sfc_quni = 'Coulombs')
60  parameter (sfc_rlab = 'Resistance', sfc_runi = 'Ohms')
61  parameter (sfc_glab = 'Conductance', sfc_guni = 'Mhos')
62  parameter (sfc_llab = 'Inductance', sfc_luni = 'Henrys')
63  parameter (sfc_clab = 'Capacitance', sfc_cuni = 'Farads')
64  parameter (sfc_flab = 'Flux', sfc_funi = 'Webers')
65  parameter (sfc_celab = 'dCV/dV')
66  parameter (sfc_pcdlab = 'V*V*dC/dt/2')
67  parameter (sfc_ecdlab = 'Sum V*V*dC/dt/2')
68  parameter (sfc_pcclab = 'd(C*V*V/2)/dt')
69  parameter (sfc_ecclab = '(C*V*V)/2')
70  parameter (sfc_lelab = 'dLI/dI')
71  parameter (sfc_pldlab = 'I*I*dL/dt/2')
72  parameter (sfc_eldlab = 'Sum I*I*dL/dt/2')
73  parameter (sfc_plclab = 'd(L*I*I/2)/dt')
74  parameter (sfc_elclab = '(L*I*I)/2')
75  parameter (sfc_srclab = 'Source')
76  parameter (sfc_inlab = 'Input')
77  parameter (sfc_outlab = 'Output')
78  parameter (sfc_rdlab = 'Radius', sfc_lenuni = 'Meters')
79  parameter (sfc_vellab = 'Velocity', sfc_veluni = 'Meters/sec')
80  parameter (sfc_alab = 'Acceleration')
81  parameter (sfc_auni = 'Meters/sec/sec')
82  parameter (sfc_klab = 'Kinetic')
83  parameter (sfc_foillab = 'Foil', sfc_gaslab = 'Gas Puff')
84  parameter (sfc_kllab = 'K-line', sfc_ylab = 'X-ray Yield')
85  parameter (sfc_allab = 'Al', sfc_arlab = 'Ar', sfc_culab = 'Cu')
86  parameter (sfc_krlab = 'Kr', sfc_xelab = 'Xe')
87  parameter (sfc_moshlab = '(M)', sfc_whitlab = '(W)')
88  parameter (sfc_ulab = 'User', sfc_uuni = 'Undefined')
89  parameter (sfc_tllab = 'T-Line', sfc_strlab = 'Stored')
90  parameter (sfc_lstlab = 'Lost')
91  parameter (sfc_gchlab = 'Gas Channel')
92  parameter (sfc_stklab = 'Stack')
93  parameter (sfc_xmlab = 'MFI Criterion')
94  parameter (sfc_eflab = 'Electric Field')
95  parameter (sfc_bflab = 'Magnetic Field')
96  parameter (sfc_nonuni = 'No Units')
97  parameter (sfc_efuni = 'Volts/meter')
98  parameter (sfc_bfuni = 'Tesla')
99  parameter (sfc_zflab = 'Zflow', sfc_gzflab = '1/Zflow')
100  parameter (sfc_alslab = 'Loss to Anode')
101  parameter (sfc_cdlab = 'Current Density')
102  parameter (sfc_cduni = 'Amps/m*m')
103  parameter (sfc_iclab = 'Cathode', sfc_iplab = 'Plasma')
104 c
105 c ************** End of translation section *********************
106 c
107  character sfc_titcol(200)*(sfc_len)
108  character sfc_labcol(200)*(sfc_len)
109  character sfc_unicol(200)*(sfc_len)
110 c
111  sfc_titcol( 1) = sfc_vlab//' R1'
112  sfc_titcol( 2) = sfc_vlab//' R2'
113  sfc_titcol( 3) = sfc_vlab//' R3'
114  sfc_titcol( 4) = sfc_ilab//' R1'
115  sfc_titcol( 5) = sfc_ilab//' R2'
116  sfc_titcol( 6) = sfc_ilab//' R3'
117  sfc_titcol( 7) = sfc_plab//' R1'
118  sfc_titcol( 8) = sfc_plab//' R2'
119  sfc_titcol( 9) = sfc_plab//' R3'
120  sfc_titcol( 10) = sfc_elab//' R1'
121  sfc_titcol( 11) = sfc_elab//' R2'
122  sfc_titcol( 12) = sfc_elab//' R3'
123  sfc_titcol( 13) = sfc_rlab//' R1'
124  sfc_titcol( 14) = sfc_rlab//' R2'
125  sfc_titcol( 15) = sfc_rlab//' R3'
126  sfc_titcol( 16) = sfc_qlab//' R1'
127  sfc_titcol( 17) = sfc_qlab//' R2'
128  sfc_titcol( 18) = sfc_qlab//' R3'
129  sfc_titcol( 19) = sfc_vlab//' C1'
130  sfc_titcol( 20) = sfc_vlab//' C3'
131  sfc_titcol( 21) = sfc_ilab//' C1'
132  sfc_titcol( 22) = sfc_ilab//' C3'
133  sfc_titcol( 23) = sfc_plab//' C1'
134  sfc_titcol( 24) = sfc_plab//' C3'
135  sfc_titcol( 25) = sfc_elab//' C1'
136  sfc_titcol( 26) = sfc_elab//' C3'
137  sfc_titcol( 27) = sfc_clab//' C1'
138  sfc_titcol( 28) = sfc_clab//' C3'
139  sfc_titcol( 29) = sfc_qlab//' C1'
140  sfc_titcol( 30) = sfc_qlab//' C3'
141  sfc_titcol( 53) = sfc_celab//' C1'
142  sfc_titcol( 54) = sfc_celab//' C3'
143  sfc_titcol( 60) = sfc_pcdlab
144  sfc_titcol( 61) = sfc_ecdlab
145  sfc_titcol( 62) = sfc_pcclab
146  sfc_titcol( 63) = sfc_ecclab
147  sfc_titcol( 31) = sfc_vlab//' L2'
148  sfc_titcol( 32) = sfc_ilab//' L2'
149  sfc_titcol( 33) = sfc_plab//' L2'
150  sfc_titcol( 34) = sfc_elab//' L2'
151  sfc_titcol( 35) = sfc_llab//' L2'
152  sfc_titcol( 36) = sfc_flab//' L2'
153  sfc_titcol( 37) = sfc_qlab//' L2'
154  sfc_titcol( 55) = sfc_lelab//' L2'
155  sfc_titcol( 64) = sfc_pldlab
156  sfc_titcol( 65) = sfc_eldlab
157  sfc_titcol( 66) = sfc_plclab
158  sfc_titcol( 67) = sfc_elclab
159  sfc_titcol( 38) = sfc_srclab//' '//sfc_vlab
160  sfc_titcol( 39) = sfc_srclab//' '//sfc_ilab
161  sfc_titcol( 40) = sfc_srclab//' '//sfc_plab
162  sfc_titcol( 41) = sfc_srclab//' '//sfc_elab
163  sfc_titcol( 42) = sfc_srclab//' '//sfc_qlab
164  sfc_titcol( 43) = sfc_inlab//' '//sfc_vlab
165  sfc_titcol( 44) = sfc_inlab//' '//sfc_ilab
166  sfc_titcol( 45) = sfc_inlab//' '//sfc_plab
167  sfc_titcol( 46) = sfc_inlab//' '//sfc_elab
168  sfc_titcol( 47) = sfc_inlab//' '//sfc_qlab
169  sfc_titcol( 48) = sfc_outlab//' '//sfc_vlab
170  sfc_titcol( 49) = sfc_outlab//' '//sfc_ilab
171  sfc_titcol( 50) = sfc_outlab//' '//sfc_plab
172  sfc_titcol( 51) = sfc_outlab//' '//sfc_elab
173  sfc_titcol( 52) = sfc_outlab//' '//sfc_qlab
174  sfc_titcol( 56) = sfc_foillab//' '//sfc_rdlab
175  sfc_titcol( 57) = sfc_foillab//' '//sfc_vellab
176  sfc_titcol( 58) = sfc_foillab//' '//sfc_alab
177  sfc_titcol( 59) = sfc_gaslab//' '//sfc_klab//' '//sfc_elab
178  sfc_titcol( 68) = sfc_gaslab//' '//sfc_rdlab
179  sfc_titcol( 69) = sfc_gaslab//' '//sfc_vellab
180  sfc_titcol( 70) = sfc_gaslab//' '//sfc_alab
181  sfc_titcol( 71) = sfc_gaslab//' '//sfc_klab//' ' //sfc_elab
182  sfc_titcol(101) = sfc_allab//' '//sfc_kllab//' '//sfc_whitlab
183  sfc_titcol(102) = sfc_allab//' '//sfc_kllab//' '//sfc_moshlab
184  sfc_titcol(103) = sfc_arlab//' '//sfc_kllab//' '//sfc_whitlab
185  sfc_titcol(104) = sfc_arlab//' '//sfc_kllab//' '//sfc_moshlab
186  sfc_titcol(105) = sfc_culab//' '//sfc_kllab//' '//sfc_whitlab
187  sfc_titcol(106) = sfc_culab//' '//sfc_kllab//' '//sfc_moshlab
188  sfc_titcol(107) = sfc_krlab//' '//sfc_kllab//' '//sfc_whitlab
189  sfc_titcol(108) = sfc_krlab//' '//sfc_kllab//' '//sfc_moshlab
190  sfc_titcol(109) = sfc_xelab//' '//sfc_kllab//' '//sfc_whitlab
191  sfc_titcol(110) = sfc_xelab//' '//sfc_kllab//' '//sfc_moshlab
192  sfc_titcol( 72) = sfc_ulab//' 1'
193  sfc_titcol( 73) = sfc_ulab//' 2'
194  sfc_titcol( 74) = sfc_ulab//' 3'
195  sfc_titcol( 75) = sfc_ulab//' 4'
196  sfc_titcol( 76) = sfc_ulab//' 5'
197  sfc_titcol( 77) = sfc_ulab//' 6'
198  sfc_titcol( 78) = sfc_ulab//' 7'
199  sfc_titcol( 79) = sfc_ulab//' 8'
200  sfc_titcol( 80) = sfc_ulab//' 9'
201  sfc_titcol( 81) = sfc_ulab//' 10'
202  sfc_titcol( 82) = sfc_tllab//' '//sfc_lstlab//' '//sfc_elab
203  sfc_titcol( 83) = sfc_tllab//' '//sfc_lstlab//' '//sfc_plab
204  sfc_titcol( 84) = sfc_tllab//' '//sfc_strlab//' '//sfc_elab
205  sfc_titcol( 85) = sfc_tllab//' '//sfc_strlab//' '//sfc_plab
206  sfc_titcol( 86) = sfc_gchlab//' '//sfc_rlab
207  sfc_titcol( 90) = sfc_stklab//' '//sfc_eflab
208  sfc_titcol( 91) = sfc_stklab//' '//sfc_bflab
209  sfc_titcol( 92) = sfc_stklab//' '//sfc_xmlab
210  sfc_titcol( 93) = sfc_zflab
211  sfc_titcol( 94) = sfc_gzflab
212  sfc_titcol( 95) = sfc_zflab
213  sfc_titcol( 96) = sfc_gzflab
214  sfc_titcol( 97) = sfc_alslab
215  sfc_titcol( 98) = sfc_iclab//' '//sfc_ilab
216  sfc_titcol( 99) = sfc_iplab//' '//sfc_ilab
217  sfc_titcol(100) = sfc_zflab
218 c
219  sfc_labcol( 1) = sfc_vlab
220  sfc_labcol( 2) = sfc_vlab
221  sfc_labcol( 3) = sfc_vlab
222  sfc_labcol( 4) = sfc_ilab
223  sfc_labcol( 5) = sfc_ilab
224  sfc_labcol( 6) = sfc_ilab
225  sfc_labcol( 7) = sfc_plab
226  sfc_labcol( 8) = sfc_plab
227  sfc_labcol( 9) = sfc_plab
228  sfc_labcol( 10) = sfc_elab
229  sfc_labcol( 11) = sfc_elab
230  sfc_labcol( 12) = sfc_elab
231  sfc_labcol( 13) = sfc_rlab
232  sfc_labcol( 14) = sfc_rlab
233  sfc_labcol( 15) = sfc_rlab
234  sfc_labcol( 16) = sfc_qlab
235  sfc_labcol( 17) = sfc_qlab
236  sfc_labcol( 18) = sfc_qlab
237  sfc_labcol( 19) = sfc_vlab
238  sfc_labcol( 20) = sfc_vlab
239  sfc_labcol( 21) = sfc_ilab
240  sfc_labcol( 22) = sfc_ilab
241  sfc_labcol( 23) = sfc_plab
242  sfc_labcol( 24) = sfc_plab
243  sfc_labcol( 25) = sfc_elab
244  sfc_labcol( 26) = sfc_elab
245  sfc_labcol( 27) = sfc_clab
246  sfc_labcol( 28) = sfc_clab
247  sfc_labcol( 29) = sfc_qlab
248  sfc_labcol( 30) = sfc_qlab
249  sfc_labcol( 53) = sfc_celab
250  sfc_labcol( 54) = sfc_celab
251  sfc_labcol( 60) = sfc_pcdlab
252  sfc_labcol( 61) = sfc_ecdlab
253  sfc_labcol( 62) = sfc_pcclab
254  sfc_labcol( 63) = sfc_ecclab
255  sfc_labcol( 31) = sfc_vlab
256  sfc_labcol( 32) = sfc_ilab
257  sfc_labcol( 33) = sfc_plab
258  sfc_labcol( 34) = sfc_elab
259  sfc_labcol( 35) = sfc_llab
260  sfc_labcol( 36) = sfc_flab
261  sfc_labcol( 37) = sfc_qlab
262  sfc_labcol( 55) = sfc_lelab
263  sfc_labcol( 64) = sfc_pldlab
264  sfc_labcol( 65) = sfc_eldlab
265  sfc_labcol( 66) = sfc_plclab
266  sfc_labcol( 67) = sfc_elclab
267  sfc_labcol( 38) = sfc_vlab
268  sfc_labcol( 39) = sfc_ilab
269  sfc_labcol( 40) = sfc_plab
270  sfc_labcol( 41) = sfc_elab
271  sfc_labcol( 42) = sfc_qlab
272  sfc_labcol( 43) = sfc_vlab
273  sfc_labcol( 44) = sfc_ilab
274  sfc_labcol( 45) = sfc_plab
275  sfc_labcol( 46) = sfc_elab
276  sfc_labcol( 47) = sfc_qlab
277  sfc_labcol( 48) = sfc_vlab
278  sfc_labcol( 49) = sfc_ilab
279  sfc_labcol( 50) = sfc_plab
280  sfc_labcol( 51) = sfc_elab
281  sfc_labcol( 52) = sfc_qlab
282  sfc_labcol( 56) = sfc_rdlab
283  sfc_labcol( 57) = sfc_vellab
284  sfc_labcol( 58) = sfc_alab
285  sfc_labcol( 59) = sfc_klab//' '//sfc_elab
286  sfc_labcol( 68) = sfc_rdlab
287  sfc_labcol( 69) = sfc_vellab
288  sfc_labcol( 70) = sfc_alab
289  sfc_labcol( 71) = sfc_klab//' '//sfc_elab
290  sfc_labcol(101) = sfc_ylab
291  sfc_labcol(102) = sfc_ylab
292  sfc_labcol(103) = sfc_ylab
293  sfc_labcol(104) = sfc_ylab
294  sfc_labcol(105) = sfc_ylab
295  sfc_labcol(106) = sfc_ylab
296  sfc_labcol(107) = sfc_ylab
297  sfc_labcol(108) = sfc_ylab
298  sfc_labcol(109) = sfc_ylab
299  sfc_labcol(110) = sfc_ylab
300  sfc_labcol( 72) = sfc_ulab//' 1'
301  sfc_labcol( 73) = sfc_ulab//' 2'
302  sfc_labcol( 74) = sfc_ulab//' 3'
303  sfc_labcol( 75) = sfc_ulab//' 4'
304  sfc_labcol( 76) = sfc_ulab//' 5'
305  sfc_labcol( 77) = sfc_ulab//' 6'
306  sfc_labcol( 78) = sfc_ulab//' 7'
307  sfc_labcol( 79) = sfc_ulab//' 8'
308  sfc_labcol( 80) = sfc_ulab//' 9'
309  sfc_labcol( 81) = sfc_ulab//' 10'
310  sfc_labcol( 82) = sfc_elab
311  sfc_labcol( 83) = sfc_elab
312  sfc_labcol( 84) = sfc_elab
313  sfc_labcol( 85) = sfc_elab
314  sfc_labcol( 86) = sfc_rlab
315  sfc_labcol( 90) = sfc_eflab
316  sfc_labcol( 91) = sfc_bflab
317  sfc_labcol( 92) = sfc_xmlab
318  sfc_labcol( 93) = sfc_zflab
319  sfc_labcol( 94) = sfc_gzflab
320  sfc_labcol( 95) = sfc_zflab
321  sfc_labcol( 96) = sfc_gzflab
322  sfc_labcol( 97) = sfc_cdlab
323  sfc_labcol( 98) = sfc_ilab
324  sfc_labcol( 99) = sfc_ilab
325  sfc_labcol(100) = sfc_zflab
326 c
327  sfc_unicol( 1) = sfc_vuni
328  sfc_unicol( 2) = sfc_vuni
329  sfc_unicol( 3) = sfc_vuni
330  sfc_unicol( 4) = sfc_iuni
331  sfc_unicol( 5) = sfc_iuni
332  sfc_unicol( 6) = sfc_iuni
333  sfc_unicol( 7) = sfc_puni
334  sfc_unicol( 8) = sfc_puni
335  sfc_unicol( 9) = sfc_puni
336  sfc_unicol( 10) = sfc_euni
337  sfc_unicol( 11) = sfc_euni
338  sfc_unicol( 12) = sfc_euni
339  sfc_unicol( 13) = sfc_runi
340  sfc_unicol( 14) = sfc_runi
341  sfc_unicol( 15) = sfc_runi
342  sfc_unicol( 16) = sfc_quni
343  sfc_unicol( 17) = sfc_quni
344  sfc_unicol( 18) = sfc_quni
345  sfc_unicol( 19) = sfc_vuni
346  sfc_unicol( 20) = sfc_vuni
347  sfc_unicol( 21) = sfc_iuni
348  sfc_unicol( 22) = sfc_iuni
349  sfc_unicol( 23) = sfc_puni
350  sfc_unicol( 24) = sfc_puni
351  sfc_unicol( 25) = sfc_euni
352  sfc_unicol( 26) = sfc_euni
353  sfc_unicol( 27) = sfc_cuni
354  sfc_unicol( 28) = sfc_cuni
355  sfc_unicol( 29) = sfc_quni
356  sfc_unicol( 30) = sfc_quni
357  sfc_unicol( 53) = sfc_cuni
358  sfc_unicol( 54) = sfc_cuni
359  sfc_unicol( 60) = sfc_puni
360  sfc_unicol( 61) = sfc_euni
361  sfc_unicol( 62) = sfc_puni
362  sfc_unicol( 63) = sfc_euni
363  sfc_unicol( 31) = sfc_vuni
364  sfc_unicol( 32) = sfc_iuni
365  sfc_unicol( 33) = sfc_puni
366  sfc_unicol( 34) = sfc_euni
367  sfc_unicol( 35) = sfc_luni
368  sfc_unicol( 36) = sfc_funi
369  sfc_unicol( 37) = sfc_quni
370  sfc_unicol( 55) = sfc_luni
371  sfc_unicol( 64) = sfc_puni
372  sfc_unicol( 65) = sfc_euni
373  sfc_unicol( 66) = sfc_puni
374  sfc_unicol( 67) = sfc_euni
375  sfc_unicol( 38) = sfc_vuni
376  sfc_unicol( 39) = sfc_iuni
377  sfc_unicol( 40) = sfc_puni
378  sfc_unicol( 41) = sfc_euni
379  sfc_unicol( 42) = sfc_quni
380  sfc_unicol( 43) = sfc_vuni
381  sfc_unicol( 44) = sfc_iuni
382  sfc_unicol( 45) = sfc_puni
383  sfc_unicol( 46) = sfc_euni
384  sfc_unicol( 47) = sfc_quni
385  sfc_unicol( 48) = sfc_vuni
386  sfc_unicol( 49) = sfc_iuni
387  sfc_unicol( 50) = sfc_puni
388  sfc_unicol( 51) = sfc_euni
389  sfc_unicol( 52) = sfc_quni
390  sfc_unicol( 56) = sfc_lenuni
391  sfc_unicol( 57) = sfc_veluni
392  sfc_unicol( 58) = sfc_auni
393  sfc_unicol( 59) = sfc_euni
394  sfc_unicol( 68) = sfc_lenuni
395  sfc_unicol( 69) = sfc_veluni
396  sfc_unicol( 70) = sfc_auni
397  sfc_unicol( 71) = sfc_euni
398  sfc_unicol(101) = sfc_euni
399  sfc_unicol(102) = sfc_euni
400  sfc_unicol(103) = sfc_euni
401  sfc_unicol(104) = sfc_euni
402  sfc_unicol(105) = sfc_euni
403  sfc_unicol(106) = sfc_euni
404  sfc_unicol(107) = sfc_euni
405  sfc_unicol(108) = sfc_euni
406  sfc_unicol(109) = sfc_euni
407  sfc_unicol(110) = sfc_euni
408  sfc_unicol( 72) = sfc_uuni
409  sfc_unicol( 73) = sfc_uuni
410  sfc_unicol( 74) = sfc_uuni
411  sfc_unicol( 75) = sfc_uuni
412  sfc_unicol( 76) = sfc_uuni
413  sfc_unicol( 77) = sfc_uuni
414  sfc_unicol( 78) = sfc_uuni
415  sfc_unicol( 79) = sfc_uuni
416  sfc_unicol( 80) = sfc_uuni
417  sfc_unicol( 81) = sfc_uuni
418  sfc_unicol( 82) = sfc_euni
419  sfc_unicol( 83) = sfc_euni
420  sfc_unicol( 84) = sfc_euni
421  sfc_unicol( 85) = sfc_euni
422  sfc_unicol( 86) = sfc_lenuni
423  sfc_unicol( 90) = sfc_efuni
424  sfc_unicol( 91) = sfc_bfuni
425  sfc_unicol( 92) = sfc_nonuni
426  sfc_unicol( 93) = sfc_runi
427  sfc_unicol( 94) = sfc_guni
428  sfc_unicol( 95) = sfc_runi
429  sfc_unicol( 96) = sfc_guni
430  sfc_unicol( 97) = sfc_cduni
431  sfc_unicol( 98) = sfc_iuni
432  sfc_unicol( 99) = sfc_iuni
433  sfc_unicol(100) = sfc_runi
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
Definition: zdempprm.h:7
c This is a Fortran header MLK
Definition: sfc.h:3
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 Charge
Definition: zdemfmt.h:178
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 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 & Density
Definition: zdemfmt.h:91
subroutine user(timestep, time, p1, p2, p3, p4, v1, v2, v3)
Definition: usrfunc.f:1
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 & M
Definition: zdemfmt.h:60
c This is a Fortran header file
Definition: sfc.h:3