53 parameter(table_unit = 22)
58 parameter(no_text = 0)
59 character ti*2, t1*2, t2*2
60 character header*79, tabfile*80
66 tabfile = base_filename
67 call
strip(tabfile, i_1st, i_last)
68 iend1 = i_last - i_1st + 3
70 tabfile(1:iend1) = tabfile(i_1st:i_last)//
'.t'
71 tabfile(iend2:80) =
' '
88 nskip =
ifsteps(max_table_points, ht, tstart, tstop)
98 + ibufsize, tmptime, tmpval, ierr)
99 if (tstart .eq. 0.0)
then
104 + ibufsize, tmptime, tmpval, ierr)
107 do while (ierr .eq. 0)
108 if ((tmptime.ge.tstart).and.(tmptime.le.tstop))
then
110 if (ncycle .ge. nskip)
then
111 ipntcnt = ipntcnt + 1
118 + ibufsize, tmptime, tmpval, ierr)
126 call
strip(ti, i1, i2)
127 iend = iend2 + i2 - i1
128 tabfile(iend2:iend) = ti(i1:i2)
132 open (unit=table_unit,
file=tabfile(1:iend), status=
'NEW')
138 write (table_unit, 1000) title(1:79)
145 if (istart .eq. no_text)
then
149 header(1:22) =
'Branch '//t1//
', Block '//t2//
': '
150 if (itype .eq. transline)
then
151 header(23:44) =
'transmission line '
152 else if (itype .eq. pisection)
then
153 header(23:44) =
'pisection '
154 else if (itype .eq. rcground)
then
155 header(23:44) =
'rcground '
156 else if (itype .eq. voltsource)
then
157 header(23:44) =
'voltage source '
158 else if (itype .eq. vendsource)
then
159 header(23:44) =
'end-brn voltage source'
160 else if (itype .eq. currsource)
then
161 header(23:44) =
'current source '
162 else if (itype .eq. cendsource)
then
163 header(23:44) =
'end-brn current source'
164 else if (itype .eq. csclsource)
then
165 header(23:44) =
'SCL current source '
166 else if ((itype .eq. mitline) .or.
167 & (itype .eq. pmitline))
then
168 header(23:44) =
'MITL '
169 else if (itype .eq. adder)
then
170 header(23:44) =
'adder '
171 else if (itype .eq. rlseries)
then
172 header(23:44) =
'rlseries '
186 write (table_unit, 1000) header(1:79)
190 write (table_unit, 2000) ipntcnt
199 if (
scale .gt. 0.0)
then
207 write (table_unit, 3000)
scale
217 write (table_unit, 5000)
221 close (unit=table_unit)
227 1000
format (
' ',
'!', a79)
228 2000
format (
' ',
'!', i4,
' points in the table')
229 3000
format (
' ', 1pe10.3,
' 0.0')
230 4000
format (
' ', 4x, 1p2e12.3)
231 5000
format (
' ',
' Last-entry')
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character tendout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character timeout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numout
subroutine read_outfile(iunit, newrec, timeflag, ipoint, ibufsize, ttime, value, ierr)
subroutine int_to_text(int, text)
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & ylblout
subroutine open_outfile(iunit, status, ierr)
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numtab
subroutine close_outfile(iunit, ierr)
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 numsfc character & outdata
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character indices
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & tbegout
subroutine strip(text, start, end)
c *****************************************************************************c Common blocks for SCREAMER output and tabling c maxout
integer function ifsteps(maxpts, dt, tstart, tstop)
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & itimeflg
subroutine gather(inarray, intarget, maxin, outarray, 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 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 scale
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
c This is a Fortran header file