54 parameter(no_text = 0)
55 character ti*2, t1*2, t2*2
56 character header*73, filfile*80
62 filfile = base_filename
63 call
strip(filfile, i_1st, i_last)
64 iend1 = i_last - i_1st + 3
66 filfile(1:iend1) = filfile(i_1st:i_last)//
'.f'
67 filfile(iend2:80) =
' '
84 nskip =
ifsteps(maxfpts, ht, tstart, tstop)
94 + ibufsize, tmptime, tmpval, ierr)
95 if (tstart .eq. 0.0)
then
100 + ibufsize, tmptime, tmpval, ierr)
106 do while (ierr .eq. 0)
107 if ((tmptime.ge.tstart).and.(tmptime.le.tstop))
then
109 if (ncycle .ge. nskip)
then
110 ipntcnt = ipntcnt + 1
117 + ibufsize, tmptime, tmpval, ierr)
125 call
strip(ti, i1, i2)
126 iend = iend2 + i2 - i1
127 filfile(iend2:iend) = ti(i1:i2)
131 open (unit=22,
file=filfile(1:iend), status=
'NEW')
137 if (istart .eq. no_text)
then
141 if (itype .eq. transline)
then
142 header(1:24) =
'Brn '//t1//
', Blk '//t2//
': trline {'
143 else if (itype .eq. pisection)
then
144 header(1:24) =
'Brn '//t1//
', Blk '//t2//
': pisect {'
145 else if (itype .eq. rcground)
then
146 header(1:24) =
'Brn '//t1//
', Blk '//t2//
': RCgrnd {'
147 else if (itype .eq. voltsource)
then
148 header(1:24) =
'Brn '//t1//
', Blk '//t2//
': Vsourc {'
149 else if (itype .eq. vendsource)
then
150 header(1:24) =
'Brn '//t1//
', Blk '//t2//
': EVsrce {'
151 else if (itype .eq. currsource)
then
152 header(1:24) =
'Brn '//t1//
', Blk '//t2//
': Isourc {'
153 else if (itype .eq. cendsource)
then
154 header(1:24) =
'Brn '//t1//
', Blk '//t2//
': Isourc {'
155 else if (itype .eq. csclsource)
then
156 header(1:24) =
'Brn '//t1//
', Blk '//t2//
': SCLsrc {'
157 else if ((itype .eq. mitline) .or.
158 & (itype .eq. pmitline))
then
159 header(1:24) =
'Brn '//t1//
', Blk '//t2//
': MITL {'
160 else if (itype .eq. adder)
then
161 header(1:24) =
'Brn '//t1//
', Blk '//t2//
': Adder {'
162 else if (itype .eq. rlseries)
then
163 header(1:24) =
'Brn '//t1//
', Blk '//t2//
': RLsers {'
179 write (22, 1000) ipntcnt, header
194 1000
format (i4, 3x, a73)
195 2000
format (1p2e12.3)
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)
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
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numfil
subroutine gather(inarray, intarget, maxin, outarray, numout)
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