37 if ((keyword .eq. k_pltpts) .or.
45 & (keyword .eq. k_sfcpts))
then
50 keyword = field(2)(1:keyword_len)
54 if (keyword .eq. k_vr1)
then
55 labelout =
'Voltage across R1'
56 labelplt =
'VR1_volts'
59 else if (keyword .eq. k_vr2)
then
60 labelout =
'Voltage across R2'
61 labelplt =
'VR2_volts'
64 else if (keyword .eq. k_vr3)
then
65 labelout =
'Voltage across R3'
66 labelplt =
'VR3_volts'
69 else if (keyword .eq. k_ir1)
then
70 labelout =
'Current in R1'
74 else if (keyword .eq. k_ir2)
then
75 labelout =
'Current in R2'
79 else if (keyword .eq. k_ir3)
then
80 labelout =
'Current in R3'
84 else if (keyword .eq. k_pr1)
then
85 labelout =
'Power Dissipated in R1'
86 labelplt =
'PR1_watts'
89 else if (keyword .eq. k_pr2)
then
90 labelout =
'Power Dissipated in R2'
91 labelplt =
'PR2_watts'
94 else if (keyword .eq. k_pr3)
then
95 labelout =
'Power Dissipated in R3'
96 labelplt =
'PR3_watts'
99 else if (keyword .eq. k_er1)
then
100 labelout =
'Energy Dissipated in R1'
101 labelplt =
'ER1_joules'
104 else if (keyword .eq. k_er2)
then
105 labelout =
'Energy Dissipated in R2'
106 labelplt =
'ER2_joules'
109 else if (keyword .eq. k_er3)
then
110 labelout =
'Energy Dissipated in R3'
111 labelplt =
'ER3_joules'
114 else if (keyword .eq. k_r1)
then
115 labelout =
'Value of R1'
119 else if (keyword .eq. k_r2)
then
120 labelout =
'Value of R2'
124 else if (keyword .eq. k_r3)
then
125 labelout =
'Value of R3'
129 else if (keyword .eq. k_qr1)
then
130 labelout =
'Charge through R1'
131 labelplt =
'QR1_coul'
134 else if (keyword .eq. k_qr2)
then
135 labelout =
'Charge through R2'
136 labelplt =
'QR2_coul'
139 else if (keyword .eq. k_qr3)
then
140 labelout =
'Charge through R3'
141 labelplt =
'QR3_coul'
144 else if (keyword .eq. k_vc1)
then
145 labelout =
'Voltage across C1'
146 labelplt =
'VC1_volts'
149 else if (keyword .eq. k_vc3)
then
150 labelout =
'Voltage across C3'
151 labelplt =
'VC3_volts'
154 else if (keyword .eq. k_ic1)
then
155 labelout =
'Current in C1'
156 labelplt =
'IC1_amps'
159 else if (keyword .eq. k_ic3)
then
160 labelout =
'Current in C3'
161 labelplt =
'IC3_amps'
164 else if (keyword .eq. k_pc1)
then
165 labelout =
'Power Stored in C1'
166 labelplt =
'PC1_watts'
169 else if (keyword .eq. k_pc3)
then
170 labelout =
'Power Stored in C3'
171 labelplt =
'PC3_watts'
174 else if (keyword .eq. k_ec1)
then
175 labelout =
'Energy Stored in C1'
176 labelplt =
'EC1_joules'
179 else if (keyword .eq. k_ec3)
then
180 labelout =
'Energy Stored in C3'
181 labelplt =
'EC3_joules'
184 else if (keyword .eq. k_c1)
then
185 labelout =
'Value of C1'
186 labelplt =
'C1_farads'
189 else if (keyword .eq. k_c3)
then
190 labelout =
'Value of C3'
191 labelplt =
'C3_farads'
194 else if (keyword .eq. k_qc1)
then
195 labelout =
'Charge on C1'
196 labelplt =
'QC1_coul'
199 else if (keyword .eq. k_qc3)
then
200 labelout =
'Charge on C3'
201 labelplt =
'QC3_coul'
204 else if (keyword .eq. k_c1e)
then
205 labelout =
'Value of C1eff'
206 labelplt =
'C1eff_farad'
209 else if (keyword .eq. k_c3e)
then
210 labelout =
'Value of C3eff'
211 labelplt =
'C3eff_farad'
214 else if (keyword .eq. k_pcdot)
then
215 labelout =
'Value of 1/2*V*V*dC/dt'
216 labelplt =
'PCdot_watts'
219 else if (keyword .eq. k_ecdot)
then
220 labelout =
'Sum of 1/2*V*V*dC/dt'
221 labelplt =
'ECdot_joule'
224 else if (keyword .eq. k_pccon)
then
225 labelout =
'Term: d(1/2*C*V*V)/dt'
226 labelplt =
'PCcon_watts'
229 else if (keyword .eq. k_eccon)
then
230 labelout =
'Value of 1/2*C*V*V'
231 labelplt =
'ECcon_joule'
234 else if (keyword .eq. k_vl2)
then
235 labelout =
'Voltage across L2'
236 labelplt =
'VL2_volts'
239 else if (keyword .eq. k_il2)
then
240 labelout =
'Current in L2'
241 labelplt =
'IL2_amps'
244 else if (keyword .eq. k_pl2)
then
245 labelout =
'Power Stored in L2'
246 labelplt =
'PL2_watts'
249 else if (keyword .eq. k_el2)
then
250 labelout =
'Energy Stored in L2'
251 labelplt =
'EL2_joules'
254 else if (keyword .eq. k_l2)
then
255 labelout =
'Value of L2'
256 labelplt =
'L2_henrys'
259 else if (keyword .eq. k_fl2)
then
260 labelout =
'Flux in L2'
261 labelplt =
'FL2_webers'
264 else if (keyword .eq. k_ql2)
then
265 labelout =
'Charge through L2'
266 labelplt =
'QL2_coul'
269 else if (keyword .eq. k_l2e)
then
270 labelout =
'Value of L2eff'
271 labelplt =
'L2eff_henry'
274 else if (keyword .eq. k_pldot)
then
275 labelout =
'Value of 1/2*I*I*dL/dt'
276 labelplt =
'PLdot_watts'
279 else if (keyword .eq. k_eldot)
then
280 labelout =
'Sum of 1/2*I*I*dL/dt'
281 labelplt =
'ELdot_joule'
284 else if (keyword .eq. k_plcon)
then
285 labelout =
'Term: d(1/2*L*I*I)/dt'
286 labelplt =
'PLcon_watts'
289 else if (keyword .eq. k_elcon)
then
290 labelout =
'Value of 1/2*L*I*I'
291 labelplt =
'ELcon_joule'
294 else if (keyword .eq. k_vsrc)
then
295 labelout =
'Source Voltage'
296 labelplt =
'VSRC_volts'
299 else if (keyword .eq. k_isrc)
then
300 labelout =
'Source Current'
301 labelplt =
'ISRC_amps'
304 else if (keyword .eq. k_psrc)
then
305 labelout =
'Source Power'
306 labelplt =
'PSRC_watts'
309 else if (keyword .eq. k_esrc)
then
310 labelout =
'Source Energy'
311 labelplt =
'ESRC_joules'
314 else if (keyword .eq. k_qsrc)
then
315 labelout =
'Source Charge Produced'
316 labelplt =
'QSRC_coul'
319 else if (keyword .eq. k_vin)
then
320 labelout =
'Input Voltage'
321 labelplt =
'VIN_volts'
324 else if (keyword .eq. k_iin)
then
325 labelout =
'Input Current'
326 labelplt =
'IIN_amps'
329 else if (keyword .eq. k_pin)
then
330 labelout =
'Input Power'
331 labelplt =
'PIN_watts'
334 else if (keyword .eq. k_ein)
then
335 labelout =
'Input Energy'
336 labelplt =
'EIN_joules'
339 else if (keyword .eq. k_qin)
then
340 labelout =
'Input Charge'
341 labelplt =
'QIN_coul'
344 else if (keyword .eq. k_vout)
then
345 labelout =
'Output Voltage'
346 labelplt =
'VOUT_volts'
349 else if (keyword .eq. k_iout)
then
350 labelout =
'Output Current'
351 labelplt =
'IOUT_amps'
354 else if (keyword .eq. k_pout)
then
355 labelout =
'Output Power'
356 labelplt =
'POUT_watts'
359 else if (keyword .eq. k_eout)
then
360 labelout =
'Output Energy'
361 labelplt =
'EOUT_joules'
364 else if (keyword .eq. k_qout)
then
365 labelout =
'Output Charge'
366 labelplt =
'QOUT_coul'
369 else if (keyword .eq. k_facc)
then
370 labelout =
'Foil Acceleration'
371 labelplt =
'A-FOIL_m/ss'
374 else if (keyword .eq. k_fvel)
then
375 labelout =
'Foil Velocity'
376 labelplt =
'V-FOIL_m/s'
379 else if (keyword .eq. k_frad)
then
380 labelout =
'Foil Radius'
381 labelplt =
'RAD-FOIL_m'
384 else if (keyword .eq. k_fke)
then
385 labelout =
'Foil Kinetic Energy'
386 labelplt =
'KE-FOIL_j'
389 else if (keyword .eq. k_yw_al)
then
390 labelout =
'Al K-line Energy/w'
391 labelplt =
'E_Al/w_j'
395 else if (keyword .eq. k_ym_al)
then
396 labelout =
'Al K-line Energy/m'
397 labelplt =
'E_Al/m_j'
401 else if (keyword .eq. k_yw_ar)
then
402 labelout =
'Ar K-line Energy/w'
403 labelplt =
'E_Ar/w_j'
407 else if (keyword .eq. k_ym_ar)
then
408 labelout =
'Ar K-line Energy/m'
409 labelplt =
'E_Ar/m_j'
413 else if (keyword .eq. k_yw_cu)
then
414 labelout =
'Cu K-line Energy/w'
415 labelplt =
'E_Cu/w_j'
419 else if (keyword .eq. k_ym_cu)
then
420 labelout =
'Cu K-line Energy/m'
421 labelplt =
'E_Cu/m_j'
425 else if (keyword .eq. k_yw_kr)
then
426 labelout =
'Kr K-line Energy/w'
427 labelplt =
'E_Kr/w_j'
431 else if (keyword .eq. k_ym_kr)
then
432 labelout =
'Kr K-line Energy/m'
433 labelplt =
'E_Kr/m_j'
437 else if (keyword .eq. k_yw_xe)
then
438 labelout =
'Xe K-line Energy/w'
439 labelplt =
'E_Xe/w_j'
443 else if (keyword .eq. k_ym_xe)
then
444 labelout =
'Xe K-line Energy/m'
445 labelplt =
'E_Xe/m_j'
450 else if (keyword .eq. k_gacc)
then
451 labelout =
'Gas Puff Acceleration'
452 labelplt =
'A-GAS_m/ss'
455 else if (keyword .eq. k_gvel)
then
456 labelout =
'Gas Puff Velocity'
457 labelplt =
'V-GAS_m/s'
460 else if (keyword .eq. k_grad)
then
461 labelout =
'Gas Puff Radius'
462 labelplt =
'RAD-GAS_m'
465 else if (keyword .eq. k_gke)
then
466 labelout =
'Gas Puff Kinetic Energy'
467 labelplt =
'KE-GAS_j'
471 else if (keyword .eq. k_sacc)
then
472 labelout =
'Shell Acceleration'
476 else if (keyword .eq. k_svel)
then
477 labelout =
'Shell Velocity'
481 else if (keyword .eq. k_srad)
then
482 labelout =
'Shell Radius'
486 else if (keyword .eq. k_srad1)
then
487 labelout =
'Shell Radius 1'
491 else if (keyword .eq. k_srad2)
then
492 labelout =
'Shell Radius 2'
496 else if (keyword .eq. k_srad3)
then
497 labelout =
'Shell Radius 3'
501 else if (keyword .eq. k_srad4)
then
502 labelout =
'Shell Radius 4'
506 else if (keyword .eq. k_srad5)
then
507 labelout =
'Shell Radius 5'
511 else if (keyword .eq. k_ske)
then
512 labelout =
'Shell Kinetic Energy'
516 else if (keyword .eq. k_smass)
then
517 labelout =
'Shell Mass'
521 else if (keyword .eq. k_scur1)
then
522 labelout =
'Shell Cur1'
526 else if (keyword .eq. k_scur2)
then
527 labelout =
'Shell Cur2'
531 else if (keyword .eq. k_scur3)
then
532 labelout =
'Shell Cur3'
536 else if (keyword .eq. k_scur4)
then
537 labelout =
'Shell Cur4'
541 else if (keyword .eq. k_scur5)
then
542 labelout =
'Shell Cur5'
547 else if ( (keyword .eq. k_fc)
548 & .or. (keyword .eq. k_fc1)
549 & .or. (keyword .eq. k_fc2)
550 & .or. (keyword .eq. k_fc3)
551 & .or. (keyword .eq. k_fc4) )
then
552 labelout =
'Gas Ch Radius'
557 else if (keyword .eq. k_zflow)
then
558 labelout =
'Zflow (Ohms)'
562 else if (keyword .eq. k_gzflow)
then
563 labelout =
'G Zflow (Mhos)'
570 else if (keyword .eq. k_zloss)
then
571 labelout =
'Zflow (Ohms)'
575 else if (keyword .eq. k_gloss)
then
576 labelout =
'G Zflow (Mhos)'
583 else if (keyword .eq. k_efld)
then
584 labelout =
'E Field (V/m)'
588 else if (keyword .eq. k_bfld)
then
589 labelout =
'B Field (wb/m2)'
593 else if (keyword .eq. k_xmfi)
then
594 labelout =
'MFI Criterion'
601 else if (keyword .eq. k_aloss)
then
602 labelout =
'Anode Loss Current Density'
609 else if (keyword .eq. k_icathode)
then
610 labelout =
'Cathode Current'
611 labelplt =
'I Cathode'
613 indextyp = ip_icathode
615 else if (keyword .eq. k_iplasma)
then
616 labelout =
'Plasma Current'
617 labelplt =
'I Plasma'
619 indextyp = ip_iplasma
621 else if (keyword .eq. k_zot)
then
622 labelout =
'Zflow of T'
623 labelplt =
'Zflow of T'
629 else if (keyword .eq. k_u1)
then
630 labelout =
'User Variable #1'
631 labelplt =
'U1_Unknown'
634 else if (keyword .eq. k_u2)
then
635 labelout =
'User Variable #2'
636 labelplt =
'U2_Unknown'
639 else if (keyword .eq. k_u3)
then
640 labelout =
'User Variable #3'
641 labelplt =
'U3_Unknown'
644 else if (keyword .eq. k_u4)
then
645 labelout =
'User Variable #4'
646 labelplt =
'U4_Unknown'
649 else if (keyword .eq. k_u5)
then
650 labelout =
'User Variable #5'
651 labelplt =
'U5_Unknown'
654 else if (keyword .eq. k_u6)
then
655 labelout =
'User Variable #6'
656 labelplt =
'U6_Unknown'
659 else if (keyword .eq. k_u7)
then
660 labelout =
'User Variable #7'
661 labelplt =
'U7_Unknown'
664 else if (keyword .eq. k_u8)
then
665 labelout =
'User Variable #8'
666 labelplt =
'U8_Unknown'
669 else if (keyword .eq. k_u9)
then
670 labelout =
'User Variable #9'
671 labelplt =
'U9_Unknown'
674 else if (keyword .eq. k_u10)
then
675 labelout =
'User Variable #10'
676 labelplt =
'U10_Unknown'
679 else if (keyword .eq. k_edline)
then
680 labelout =
'Energy Lost in Line'
681 labelplt =
'EDLINE_joul'
684 else if (keyword .eq. k_pdline)
then
685 labelout =
'Power Lost in Line'
686 labelplt =
'PDLINE_watt'
689 else if (keyword .eq. k_eline)
then
690 labelout =
'Energy Stored in Line'
691 labelplt =
'ELINE_joule'
694 else if (keyword .eq. k_pline)
then
695 labelout =
'Power Stored in Line'
696 labelplt =
'PLINE_watts'
710 call
strip(field(jj), istart, iend)
711 if (istart .ne. notext)
then
713 if (flag .eq. err)
then
715 keyword = field(jj)(1:keyword_len)
716 if (keyword .eq. k_wholestep)
then
717 time_flag = whole_step
719 time_flag = half_step
722 call
strip(field(jj), istart, iend)
723 if (istart .ne. notext)
then
735 if ((keywordsave .ne.
k_idrpts) .and.
736 + (keywordsave .ne. k_sfcpts) .and.
738 time_flag = half_step
740 time_flag = whole_step
745 if ((keywordsave .ne.
k_idrpts) .and.
746 + (keywordsave .ne. k_sfcpts) .and.
748 time_flag = half_step
750 time_flag = whole_step
762 call
strip(field(jj), istart, iend)
763 if (istart .ne. notext)
then
773 if ((flag+flag2+flag3+flag4) .ne. noerr)
then
784 if (keywordsave .eq. k_pltpts)
then
787 &
'(A,i3,A,a23/A,1pe10.3,A,1pe10.3,A,1pe10.3,A,1pe10.3)')
788 &
' PLOT Output Request for block ',nublks,
789 &
'. Variable: ',labelout,
790 &
' Tstart=',tstart,
' Tstop=',tstop,
791 &
' Ymin=',ymin,
' Ymax=',ymax
794 else if (keywordsave .eq.
k_prtpts)
then
796 write(9,
'(A,i3,A,a23/A,1pe10.3,A,1pe10.3)')
797 &
' PRINT Output Request for block ',nublks,
798 &
'. Variable: ',labelout,
799 &
' Tstart=',tstart,
' Tstop=',tstop
802 else if (keywordsave .eq.
k_filpts)
then
804 write(9,
'(A,i3,A,a23/A,1pe10.3,A,1pe10.3)')
805 &
' FILE Output Request for block ',nublks,
806 &
'. Variable: ',labelout,
807 &
' Tstart=',tstart,
' Tstop=',tstop
810 else if (keywordsave .eq.
k_tabpts)
then
812 write(9,
'(A,i3,A,a23/A,1pe10.3,A,1pe10.3)')
813 &
' TABLE Output Request for block ',nublks,
814 &
'. Variable: ',labelout,
815 &
' Tstart=',tstart,
' Tstop=',tstop
818 else if (keywordsave .eq.
k_ufopts)
then
820 write(9,
'(A,i3,A,a23)')
821 &
' UFO Output Request for block ',nublks,
822 &
'. Variable: ',labelout
827 else if (keywordsave .eq.
k_idrpts)
then
829 write(9,
'(A,i3,A,a23)')
830 &
' IDR Output Request for block ',nublks,
831 &
'. Variable: ',labelout
836 else if (keywordsave .eq.
k_pffpts)
then
838 write(9,
'(A,i3,A,a23)')
839 &
' PFF Output Request for block ',nublks,
840 &
'. Variable: ',labelout
845 else if (keywordsave .eq.
k_csvpts)
then
847 write(9,
'(A,i3,A,a23)')
848 &
' CSV Output Request for block ',nublks,
849 &
'. Variable: ',labelout
854 else if (keywordsave .eq. k_sfcpts)
then
856 write(9,
'(A,i3,A,a23)')
857 &
' SFC Output Request for block ',nublks,
858 &
'. Variable: ',labelout
867 if ((time_flag .eq. whole_step) .and.
871 &
' Values on the whole time step will be used.'
873 else if ((time_flag .eq. half_step) .and.
874 & (keywordsave .eq. k_sfcpts))
then
876 &
' Values on the whole time step will be used.'
878 write(9,
'(A)')
' Values on the half time step will be used.'
906 write (cbranch,
'(i2)') nbrns
907 iblank_pointer = index(cbranch,
' ')
908 if (iblank_pointer .eq. 1)
then
909 cbranch =
'0' // cbranch(2:2)
911 write (cblock,
'(i2)') nublks
912 iblank_pointer = index(cblock,
' ')
913 if (iblank_pointer .eq. 1)
then
914 cblock =
'0' // cblock(2:2)
916 branch_block = cbranch // cblock
917 call
strip(labelidr,istart,iend)
921 iin(1,nblks,nbrns) = outputreq
922 iin(5,nblks,nbrns) = indexout
926 else if (keyword(1:1) .eq.
'!')
then
932 else if ( (keyword(1:1) .eq. diaglabel_key) .or.
933 + (keyword(1:1) .eq. diaglabel_altkey) )
then
934 if (lastblk .eq. outputreq)
then
935 call
strip(currline, icl1, icl2)
936 if (icl1 .eq. 80)
then
950 else if (keyword .eq. k_ulabel)
then
952 if (lastblk .eq. outputreq)
then
953 il1 = index(currline,
'ULABEL')
954 currline = currline(il1+7:80)
955 call
strip(currline, ilbl_start, ilbl_end)
956 max_length = ilbl_start + 10
957 ulabel = currline(ilbl_start:min(max_length,ilbl_end))
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character tendout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numout
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 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 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 numpff
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & ylblout
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 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 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 Common blocks for SCREAMER output and tabling c numcsv
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & lblout_temp
subroutine readscreameroutputs(status)
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & tbegout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numplt
subroutine strip(text, start, end)
c *****************************************************************************c Common blocks for SCREAMER output and tabling c maxout
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 numfil
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character numsfc
subroutine print_bad_line(currline, nlines, numerr)
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character ixbrnout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & iblkout
subroutine text_to_real(text, rvalue, flag)
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