29 character*60 pff_file,
35 integer fid, ispare(5)
37 parameter(no_text = 0)
38 real pff_array(max_plot_points)
40 integer pfuopn, idlist(3)
45 1001
format (
' ',a28,5x,a)
46 1002
format (
' ',a,10x,a)
47 1003
format (
' ',a8,5x,a)
53 pff_file = base_filename
54 call
strip(pff_file,is1,ie1)
57 pff_file(1:iend1) = pff_file(is1:ie1)//
'.pff'
58 pff_file(iend2:60) =
' '
71 nskip =
ifsteps(maxfpts, ht, tstart, tstop)
88 if (numwh .gt. 0)
then
93 + ibufsize, tmptime, tmpval, ierr)
94 timeout(ipntcnt_wh,whstep(1)) = tmptime
95 outdata(ipntcnt_wh,whstep(1)) = tmpval
100 + ibufsize, tmptime, tmpval, ierr)
101 timeout(ipntcnt_wh,whstep(i)) = tmptime
102 outdata(ipntcnt_wh,whstep(i)) = tmpval
107 + ibufsize, tmptime, tmpval, ierr)
108 do while (ierr .eq. 0)
110 if (ncycle .ge. nskip)
then
111 ipntcnt_wh = ipntcnt_wh + 1
112 timeout(ipntcnt_wh,whstep(1)) = tmptime
113 outdata(ipntcnt_wh,whstep(1)) = tmpval
118 + ibufsize, tmptime, tmpval, ierr)
119 timeout(ipntcnt_wh,whstep(i)) = tmptime
120 outdata(ipntcnt_wh,whstep(i)) = tmpval
127 + ibufsize, tmptime, tmpval, ierr)
135 if (numhf .gt. 0)
then
139 call
read_outfile(iunit, newrec, half_step, 1, ibufsize,
140 + tmptime, tmpval, ierr)
144 + ibufsize, tmptime, tmpval, ierr)
145 timeout(ipntcnt_hf,hfstep(1)) = tmptime
146 outdata(ipntcnt_hf,hfstep(1)) = tmpval
151 + ibufsize, tmptime, tmpval, ierr)
152 timeout(ipntcnt_hf,hfstep(i)) = tmptime
153 outdata(ipntcnt_hf,hfstep(i)) = tmpval
158 + ibufsize, tmptime, tmpval, ierr)
159 do while (ierr .eq. 0)
161 if (ncycle .ge. nskip)
then
162 ipntcnt_hf = ipntcnt_hf + 1
163 timeout(ipntcnt_hf,hfstep(1)) = tmptime
164 outdata(ipntcnt_hf,hfstep(1)) = tmpval
169 + ibufsize, tmptime, tmpval, ierr)
170 timeout(ipntcnt_hf,hfstep(i)) = tmptime
171 outdata(ipntcnt_hf,hfstep(i)) = tmpval
178 + ibufsize, tmptime, tmpval, ierr)
194 fid = pfuopn(pff_file, irwflag, ierr, idummy)
195 if (ierr. ne. 0) goto 999
200 if (tflag(i) .eq. whole_step)
then
213 if (istart .eq. no_text)
then
216 call
strip(t1, it11, it12)
218 call
strip(t2, it21, it22)
221 if (iblock_type .eq. transline)
then
224 +
', Block '//t2(it21:it22)//
':Transmission line'
225 elseif (iblock_type .eq. pisection)
then
228 +
', Block '//t2(it21:it22)//
':Pi Section'
229 elseif (iblock_type .eq. rcground)
then
232 +
', Block '//t2(it21:it22)//
':RC to Ground'
233 elseif (iblock_type .eq. voltsource)
then
236 +
', Block '//t2(it21:it22)//
':Voltage Source'
237 elseif (iblock_type .eq. vendsource)
then
240 +
', Block '//t2(it21:it22)//
':EOB Voltage Source'
241 elseif (iblock_type .eq. currsource)
then
244 +
', Block '//t2(it21:it22)//
':Current Source'
245 elseif (iblock_type .eq. cendsource)
then
248 +
', Block '//t2(it21:it22)//
':EOB Current Source'
249 elseif (iblock_type .eq. csclsource)
then
252 +
', Block '//t2(it21:it22)//
':EOB SCL Curr.Source'
253 elseif ((iblock_type .eq. mitline) .or.
254 + (iblock_type .eq. pmitline))
then
257 +
', Block '//t2(it21:it22)//
':MIT Line'
258 elseif (iblock_type .eq. adder)
then
261 +
', Block '//t2(it21:it22)//
':Adder Block'
262 elseif (iblock_type .eq. rlseries)
then
265 +
', Block '//t2(it21:it22)//
':RL in Series'
286 call pfwuf1(fid,itap,st,desc,nblks,ispare,x0,dx,
289 if (ierr. ne. 0) goto 999
295 call pfucls(fid, ierr)
301 print*,
'>>>>>Error while attempting to open or write to ',
302 +
'PFF file...error=',ierr
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 numpff
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 & lblout_temp
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 Common blocks for SCREAMER output and tabling c numsfc character ixbrnout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & iblkout