Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
echosetp.f
Go to the documentation of this file.
1  subroutine echo_setup
2 c
3 c Echo the set up parameters and circuit element blocks.
4 c Sort of cryptic, but useful.
5 c
6 c -----------------------------------------------------------------------
7 c Modified:
8 c 07/19/95, MLK, Redo format statements
9 c -----------------------------------------------------------------------
10 c
11  character setupln*80
12  parameter(setupln = 'SCREAMER Setup Parameters (for debugging)')
13 c
14  include 'zdemmax.h'
15  include 'zdemcomm.h'
16  include 'zdemout.h'
17 c
18 c Put up a banner page and another page with the title.
19 c
20  call banner(setupln)
21 c call print_title
22 c
23 c Write out the circuit block parameters.
24 c
25  write(9,14)
26  write(9,42)
27  write(9,43) ht, res_time, tmax, nprint, nb
28  do ibranch = 1, nb
29  write(9,11)
30  nblocks = nbk(ibranch)
31  do iblock = 1, nblocks
32  write(9,12) ibranch, iblock, (iin(i,iblock,ibranch),i=1,5),
33  & (pin(j,iblock,ibranch),j=1,8)
34  end do
35  end do
36 c
37  14 format (/' Set-up Parameters For Screamer Code'/)
38  42 format (10x, 'HT', 7x, 'Tres', 7x, 'Tmax', 5x, 'Nprint',
39  & 2x, 'NB')
40  43 format (5x, 3(e10.3,1x), 2(i5,1x))
41  11 format (//' BR BL BT IV IB IC IO', 6x, 'P1', 8x, 'P2', 8x,
42  & 'P3', 8x, 'P4', 8x, 'P5', 8x, 'P6', 8x, 'P7', 8x, 'P8')
43  12 format (7(i2,1x), (1p8e10.3,1x))
44 c
45 c Transmission line, MITL types, and voltage source function information.
46 c
47 c if (ntransline+nmitline+nvoltsource .gt. 0) then
48 c call print_title
49 c end if
50 c
51  if (ntransline .gt. 0) then
52  write(9,810)
53  end if
54  do i = 1, ntransline
55  write(9,811) i, itrl_type(i)
56  end do
57 c
58  if (nmitline .gt. 0) then
59  write(9,814)
60  end if
61  do i = 1, nmitline
62  write(9,811) i, imitl_type(i)
63  end do
64 c
65  if (nvoltsource .gt. 0) then
66  write(9,812)
67  end if
68  do i = 1, nvoltsource
69  write(9,813) i, ivoltf(i)
70  write(9,822)
71  do j = 1, num_voltf_parms(i)
72  write(9,823) j, voltf_parms(j,i)
73  end do
74  end do
75 c
76  if (ncurrsource .gt. 0) then
77  write(9,815)
78  end if
79  do i = 1, ncurrsource
80  write(9,813) i, icurrf(i)
81  write(9,822)
82  do j = 1, num_currf_parms(i)
83  write(9,823) j, currf_parms(j,i)
84  end do
85  end do
86 c
87  810 format (/'Transmission line types'/
88  & ' ', ' I IT')
89  814 format (/'MITL types'/
90  & ' ', ' I IT')
91  811 format (i2, 2x, i2)
92  812 format (/'Voltage source function types and parameters')
93  815 format (/'Current source function types and parameters')
94  813 format ('I=', i3, ' IT=', i3)
95 c
96 c Variable elements.
97 c
98  if (nvar .gt. 0) then
99 c call print_title
100  write(9,820)
101  end if
102  do i = 1, nvar
103  write(9,821) i, ivar_type(i), ivar_block(i)
104  write(9,822)
105  do j = 1, num_var_parms(i)
106  write(9,823) j, var_model(j,i)
107  end do
108  end do
109 c
110  820 format (/'Variable element information')
111  821 format ('Var. elem: ', i2, ' Model type: ', i2,
112  & ' Block type: ', i2)
113  822 format (' I ', ' Parameter ')
114  823 format (1x, i3, 2x, 1pe10.3)
115 c
116 c Initial conditions.
117 c
118  if (ninit_cond .gt. 0) then
119 c call print_title
120  write(9,827)
121  write(9,828)
122  end if
123  do i = 1, ninit_cond
124  write(9,829) i, value_init(i)
125  end do
126 c
127  827 format (/'Initial conditions information')
128  828 format (' I ', ' Initial_value')
129  829 format (1x, i3, 4x, 1pe10.3)
130 c
131 c ***** Output requests.
132 c
133 c Plots:
134 c
135 c if (numplt .gt. 0) then
136 c call print_title
137 c write(9,924) 'Plot requests '
138 c write(9,925)
139 c end if
140 c do i = 1, numplt
141 c write(9,926) i,
142 c & tbegplt(i), tendplt(i), yminplt(i), ymaxplt(i),
143 c & itypplt(i), iblkplt(i)
144 c end do
145 c
146 c Prints:
147 c
148 c if (numprt .gt. 0) then
149 c call print_title
150 c write(9,924) 'print requests'
151 c write(9,927)
152 c end if
153 c do i = 1, numprt
154 c write(9,928) i,
155 c & tbegprt(i), tendprt(i),
156 c & itypprt(i), iblkprt(i)
157 c end do
158 c
159 c Files:
160 c
161 c if (numfil .gt. 0) then
162 c call print_title
163 c write(9,924) 'File requests '
164 c write(9,927)
165 c end if
166 c do i = 1, numfil
167 c write(9,928) i,
168 c & tbegfil(i), tendfil(i),
169 c & itypfil(i), iblkfil(i)
170 c end do
171 c
172 c Tables:
173 c
174 c if (numtab .gt. 0) then
175 c call print_title
176 c write(9,924) 'Table requests'
177 c write(9,927)
178 c end if
179 c do i = 1, numtab
180 c write(9,928) i,
181 c & tbegtab(i), tendtab(i),
182 c & ityptab(i), iblktab(i)
183 c end do
184 c
185 c UFO:
186 c
187 c if (numufo .gt. 0) then
188 c call print_title
189 c write(9,924) 'UFO requests '
190 c write(9,927)
191 c end if
192 c do i = 1, numufo
193 c write(9,928) i,
194 c & tbegufo, tendufo,
195 c & itypufo(i), iblkufo(i)
196 c end do
197 c
198  924 format (/a14)
199  925 format (' I', 2x, 'Tstart', 6x, 'Tstop',
200  & 6x, 'Ymin', 7x, 'Ymax', 5x, 'Typ', 1x, 'Blk')
201  927 format (' I', 2x, 'Tstart', 6x, 'Tstop',
202  & 4x, 'Typ', 1x, 'Blk')
203  926 format (i2, 4(1x,1pe10.3), 2(1x,i3))
204  928 format (i2, 2(1x,1pe10.3), 2(1x,i3))
205 c
206  return
207  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 i3
Definition: zdemfmt.h:36
subroutine banner(line)
Definition: prtbannr.f:1
subroutine echo_setup
Definition: echosetp.f:1