1 subroutine build_out (tim, timehalf, timestep, rtimstep)
44 integer vartype,
branch, node, blktype,
block, lastnode
45 integer ipin, ipinsav, ibrnsav, iblksav
72 if (ibrnsav .ne.
branch)
then
78 if (iblksav .ne.
block)
then
80 ipin = ipinsav +
block
91 valsave = saveout1(iout)
95 & blktype, timestep, rtimstep, timehalf,
96 & valsave, valsave2, value1,
97 & time_flag,
block, ipin)
99 saveout1(iout) = valsave
102 time_flag = whole_step
107 & blktype, timestep, rtimstep, timehalf,
108 & valsave, valsave2, value2,
109 & time_flag,
block, ipin)
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numout
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 branch
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & saveout3
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character val2
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & ixlstnodout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character saveout2
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 & val1
subroutine build_out(tim, timehalf, timestep, rtimstep)
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 Ion c c c c Initial c PRINT Output Request for block
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character ixnodout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character saveout4
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 ixbrnout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & iblkout
subroutine get_variable(vtype, branch, node, lastnode, blktype, dt, rdt, time, savev, savev2, value, time_flag, block, ipinblk)