1 c This is a Fortran header
file: sfc.h
3 c 1/6/98,
MLK: Original version
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
12 parameter (sfc_len = 15)
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
51 c ******************** Translation Section ******************************
52 c To translate from English to French, edit the following:
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')
105 c ************** End of translation section *********************
107 character sfc_titcol(200)*(sfc_len)
108 character sfc_labcol(200)*(sfc_len)
109 character sfc_unicol(200)*(sfc_len)
111 sfc_titcol( 1) = sfc_vlab
112 sfc_titcol( 2) = sfc_vlab
113 sfc_titcol( 3) = sfc_vlab
114 sfc_titcol( 4) = sfc_ilab
115 sfc_titcol( 5) = sfc_ilab
116 sfc_titcol( 6) = sfc_ilab
117 sfc_titcol( 7) = sfc_plab
118 sfc_titcol( 8) = sfc_plab
119 sfc_titcol( 9) = sfc_plab
120 sfc_titcol( 10) = sfc_elab
121 sfc_titcol( 11) = sfc_elab
122 sfc_titcol( 12) = sfc_elab
123 sfc_titcol( 13) = sfc_rlab
124 sfc_titcol( 14) = sfc_rlab
125 sfc_titcol( 15) = sfc_rlab
126 sfc_titcol( 16) = sfc_qlab
127 sfc_titcol( 17) = sfc_qlab
128 sfc_titcol( 18) = sfc_qlab
129 sfc_titcol( 19) = sfc_vlab
130 sfc_titcol( 20) = sfc_vlab
131 sfc_titcol( 21) = sfc_ilab
132 sfc_titcol( 22) = sfc_ilab
133 sfc_titcol( 23) = sfc_plab
134 sfc_titcol( 24) = sfc_plab
135 sfc_titcol( 25) = sfc_elab
136 sfc_titcol( 26) = sfc_elab
137 sfc_titcol( 27) = sfc_clab
138 sfc_titcol( 28) = sfc_clab
139 sfc_titcol( 29) = sfc_qlab
140 sfc_titcol( 30) = sfc_qlab
141 sfc_titcol( 53) = sfc_celab
142 sfc_titcol( 54) = sfc_celab
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
148 sfc_titcol( 32) = sfc_ilab
149 sfc_titcol( 33) = sfc_plab
150 sfc_titcol( 34) = sfc_elab
151 sfc_titcol( 35) = sfc_llab
152 sfc_titcol( 36) = sfc_flab
153 sfc_titcol( 37) = sfc_qlab
154 sfc_titcol( 55) = sfc_lelab
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
160 sfc_titcol( 39) = sfc_srclab
161 sfc_titcol( 40) = sfc_srclab
162 sfc_titcol( 41) = sfc_srclab
163 sfc_titcol( 42) = sfc_srclab
164 sfc_titcol( 43) = sfc_inlab
165 sfc_titcol( 44) = sfc_inlab
166 sfc_titcol( 45) = sfc_inlab
167 sfc_titcol( 46) = sfc_inlab
168 sfc_titcol( 47) = sfc_inlab
169 sfc_titcol( 48) = sfc_outlab
170 sfc_titcol( 49) = sfc_outlab
171 sfc_titcol( 50) = sfc_outlab
172 sfc_titcol( 51) = sfc_outlab
173 sfc_titcol( 52) = sfc_outlab
174 sfc_titcol( 56) = sfc_foillab
175 sfc_titcol( 57) = sfc_foillab
176 sfc_titcol( 58) = sfc_foillab
177 sfc_titcol( 59) = sfc_gaslab
178 sfc_titcol( 68) = sfc_gaslab
179 sfc_titcol( 69) = sfc_gaslab
180 sfc_titcol( 70) = sfc_gaslab
181 sfc_titcol( 71) = sfc_gaslab
182 sfc_titcol(101) = sfc_allab
183 sfc_titcol(102) = sfc_allab
184 sfc_titcol(103) = sfc_arlab
185 sfc_titcol(104) = sfc_arlab
186 sfc_titcol(105) = sfc_culab
187 sfc_titcol(106) = sfc_culab
188 sfc_titcol(107) = sfc_krlab
189 sfc_titcol(108) = sfc_krlab
190 sfc_titcol(109) = sfc_xelab
191 sfc_titcol(110) = sfc_xelab
192 sfc_titcol( 72) = sfc_ulab
193 sfc_titcol( 73) = sfc_ulab
194 sfc_titcol( 74) = sfc_ulab
195 sfc_titcol( 75) = sfc_ulab
196 sfc_titcol( 76) = sfc_ulab
197 sfc_titcol( 77) = sfc_ulab
198 sfc_titcol( 78) = sfc_ulab
199 sfc_titcol( 79) = sfc_ulab
200 sfc_titcol( 80) = sfc_ulab
201 sfc_titcol( 81) = sfc_ulab
202 sfc_titcol( 82) = sfc_tllab
203 sfc_titcol( 83) = sfc_tllab
204 sfc_titcol( 84) = sfc_tllab
205 sfc_titcol( 85) = sfc_tllab
206 sfc_titcol( 86) = sfc_gchlab
207 sfc_titcol( 90) = sfc_stklab
208 sfc_titcol( 91) = sfc_stklab
209 sfc_titcol( 92) = sfc_stklab
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
216 sfc_titcol( 99) = sfc_iplab
217 sfc_titcol(100) = sfc_zflab
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
286 sfc_labcol( 68) = sfc_rdlab
287 sfc_labcol( 69) = sfc_vellab
288 sfc_labcol( 70) = sfc_alab
289 sfc_labcol( 71) = sfc_klab
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
301 sfc_labcol( 73) = sfc_ulab
302 sfc_labcol( 74) = sfc_ulab
303 sfc_labcol( 75) = sfc_ulab
304 sfc_labcol( 76) = sfc_ulab
305 sfc_labcol( 77) = sfc_ulab
306 sfc_labcol( 78) = sfc_ulab
307 sfc_labcol( 79) = sfc_ulab
308 sfc_labcol( 80) = sfc_ulab
309 sfc_labcol( 81) = sfc_ulab
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
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
c This is a Fortran header MLK
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
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 c c &function of time c c shell c &min A K c &trapped field c153 c & Density
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 & M
c This is a Fortran header file