6 integer ib, ibk, icounter, na, iflgs,
switch,
23 parameter(factor = 4.38e3)
27 if (
switch .eq. transline)
then
32 itype = itrl_type(icounter)
33 else if (
switch .eq. mitline)
then
39 else if (
switch .eq. pmitline)
then
49 na = int((tau / tres) + 0.5)
52 else if (na .ge. max_trline_nodes)
then
65 if (itype .eq. linearz)
then
66 alpha = (zout-zin) / float(nseg-1)
68 zele = zin + alpha * float(ie-n1)
77 zlrechk(ie,ib) = seriesl
82 else if (itype .eq. exponentialz)
then
84 alpha = (log(zout/zin))/(n2-n1)
86 zele = zin*exp((ie-n1)*alpha)
95 zlrechk(ie,ib) = seriesl
101 if (
switch .eq. mitline)
then
102 indexmitl(1,icounter) = ib
103 indexmitl(2,icounter) = ibk
104 indexmitl(3,icounter) = n1
105 indexmitl(4,icounter) = n2
106 indexmitl(5,icounter) =
switch
108 else if (
switch .eq. pmitline)
then
109 indexmitl(1,icounter) = ib
110 indexmitl(2,icounter) = ibk
111 indexmitl(3,icounter) = n1
112 indexmitl(4,icounter) = n2
113 indexmitl(5,icounter) =
switch
114 delperv=pin(1,ibk,ib) / nseg
115 pin(1,ibk,ib) = delperv
117 gap = factor*delt/(delperv*(exp(zin/60.)-1.0))
128 if (ic_type .eq. vtrline)
then
129 vinitial = value_init(ic_counter)
130 vinitial2 = 0.5 * vinitial * vinitial
135 ctot = ctot +
c(ie,ib)
137 ecapsource = ecapsource + ctot*vinitial2
138 else if (ic_type .eq. ctrline)
then
139 cinitial = value_init(ic_counter)
140 cinitial2 = 0.5 * cinitial * cinitial
143 zir(ie,ib) = cinitial
144 zirn(ie,ib) = cinitial
145 zlrtot = zlrtot + zlr(ie,ib)
147 eindsource = eindsource + zlrtot*cinitial2
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 gap
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
subroutine setup_trline(ib, ibk, icounter, na, iflgs, switch, ic_type, ic_counter)
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 switch