12 parameter(setupln =
'SCREAMER Setup Parameters (for debugging)')
27 write(9,43) ht, res_time, tmax, nprint, nb
30 nblocks = nbk(ibranch)
31 do iblock = 1, nblocks
32 write(9,12) ibranch, iblock, (iin(i,iblock,ibranch),i=1,5),
33 & (pin(j,iblock,ibranch),j=1,8)
37 14
format (/
' Set-up Parameters For Screamer Code'/)
38 42
format (10x,
'HT', 7x,
'Tres', 7x,
'Tmax', 5x,
'Nprint',
40 43
format (5x, 3(e10.3,1x), 2(i5,1x))
41 11
format (//
' BR BL BT IV IB IC IO', 6x,
'P1', 8x,
'P2', 8x,
42 &
'P3', 8x,
'P4', 8x,
'P5', 8x,
'P6', 8x,
'P7', 8x,
'P8')
43 12
format (7(i2,1x), (1p8e10.3,1x))
51 if (ntransline .gt. 0)
then
55 write(9,811) i, itrl_type(i)
58 if (nmitline .gt. 0)
then
62 write(9,811) i, imitl_type(i)
65 if (nvoltsource .gt. 0)
then
69 write(9,813) i, ivoltf(i)
71 do j = 1, num_voltf_parms(i)
72 write(9,823) j, voltf_parms(j,i)
76 if (ncurrsource .gt. 0)
then
80 write(9,813) i, icurrf(i)
82 do j = 1, num_currf_parms(i)
83 write(9,823) j, currf_parms(j,i)
87 810
format (/
'Transmission line types'/
89 814
format (/
'MITL types'/
91 811
format (i2, 2x, i2)
92 812
format (/
'Voltage source function types and parameters')
93 815
format (/
'Current source function types and parameters')
94 813
format (
'I=',
i3,
' IT=',
i3)
103 write(9,821) i, ivar_type(i), ivar_block(i)
105 do j = 1, num_var_parms(i)
106 write(9,823) j, var_model(j,i)
110 820
format (/
'Variable element information')
111 821
format (
'Var. elem: ', i2,
' Model type: ', i2,
112 &
' Block type: ', i2)
113 822
format (
' I ',
' Parameter ')
114 823
format (1x,
i3, 2x, 1pe10.3)
118 if (ninit_cond .gt. 0)
then
124 write(9,829) i, value_init(i)
127 827
format (/
'Initial conditions information')
128 828
format (
' I ',
' Initial_value')
129 829
format (1x,
i3, 4x, 1pe10.3)
199 925
format (
' I', 2x,
'Tstart', 6x,
'Tstop',
200 & 6x,
'Ymin', 7x,
'Ymax', 5x,
'Typ', 1x,
'Blk')
201 927
format (
' I', 2x,
'Tstart', 6x,
'Tstop',
202 & 4x,
'Typ', 1x,
'Blk')
203 926
format (i2, 4(1x,1pe10.3), 2(1x,
i3))
204 928
format (i2, 2(1x,1pe10.3), 2(1x,
i3))
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 i3