Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
cyclprnt.f
Go to the documentation of this file.
1  subroutine cycle_print (icycle, time, esour, eind, ecap,
2  & econ, eres, elossind, elosscap, error )
3 c
4 c Define passed variables
5 c
6  integer icycle
7  real time, esour, eind, ecap, econ, eres,
8  & elossind, elosscap, error
9 c
10 c print out current status of the solution.
11 c
12 c --------------------------------------------------------
13 c Modifications:
14 c 06/27/95, MLK, Only print out energy balance by default
15 c Print out circuit details if requested
16 c 2014-02-06 RBS: Changed real*4 to real
17 c --------------------------------------------------------
18 c
19  include 'zdemmax.h'
20  include 'zdemcomm.h'
21  include 'zdemwork.h'
22  include 'zdemparm.h'
23 c
24 c call print_title
25  write(9,26) time, icycle
26  write(9,1) esour
27  write(9,2) eind
28  write(9,3) ecap
29  write(9,4) econ
30  write(9,5) eres
31  write(9,6) elossind
32  write(9,7) elosscap
33  write(9,8) error
34 c
35 c Print out circuit details if detail-prints level is set appropriately
36 c
37  if (detail_prints .eq. detail_prints_full) then
38  do ib = 1, nb
39  write(9,74) ib
40  write(9,73)
41  nrx = nr(ib)
42  do i = 1, nrx
43  halfstepv = 0.5 * ( vn(i,ib) + v(i,ib))
44  halfstepi = 0.5 * (zirn(i,ib) + zir(i,ib))
45  write(9,20) i, iflg(i,ib), halfstepv, halfstepi, g(i,ib),
46  & cechk(i,ib), zlrechk(i,ib), rr(i,ib),
47  & cdot(i,ib), zlrdot(i,ib),
48  & c(i,ib), zlr(i,ib)
49  end do
50  end do
51  end if
52 c
53  26 format(/'Time = ', 1pe10.3, 5x, 'Cycle = ', i5)
54  1 format ('Energy from all sources: ',
55  & 1pe11.3)
56  2 format ('L*I*I/2 energy stored in inductors: ',
57  & 1pe11.3)
58  3 format ('C*V*V/2 energy stored in capacitors: ',
59  & 1pe11.3)
60  4 format ('G*V*V energy dissipated in shunt resistors: ',
61  & 1pe11.3)
62  5 format ('R*I*I energy dissipated in series resistors:',
63  & 1pe11.3)
64  6 format ('Ldot*I*I/2 energy in variable inductors: ',
65  & 1pe11.3)
66  7 format ('Cdot*V*V/2 energy in variable capacitors: ',
67  & 1pe11.3)
68  8 format ('Relative error in energy sum: ',
69  & 1pe11.3)
70  74 format (/'Branch ', i2)
71  73 format (3x, 'I', 5x, 'Flags', 6x, 'V', 10x, 'I', 10x, 'G',
72  & 10x, 'C', 10x, 'L', 10x, 'R', 8x, 'dC/dt',
73  & 6x, 'dL/dt', 5x, 'd(CV)/dV', 3x,
74  & 'd(LI)/dI'/)
75  20 format (i4, 1x, i10, 1x, 10(1pe10.3,1x))
76 c
77  return
78  end
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 time
Definition: zdemfmt.h:85
subroutine cycle_print(icycle, time, esour, eind, ecap, econ, eres, elossind, elosscap, error)
Definition: cyclprnt.f:1
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
Definition: zdemfmt.h:7