Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
echoindx.f
Go to the documentation of this file.
1  subroutine echo_indicies
2 c
3 c Echo the various indexing arrays.
4 c Sort of cryptic, but useful.
5 c
6 c -----------------------------------------------------------------------
7 c Modified:
8 c 03/07/95, MLK, fix write statements that are
9 c longer than 72 characters
10 c 07/19/95, MLK, redo format statements
11 c -----------------------------------------------------------------------
12 c
13  character indexln*80
14  parameter(indexln = 'SCREAMER Setup Indicies (for debugging)')
15 c
16  include 'zdemmax.h'
17  include 'zdemcomm.h'
18  include 'zdemwork.h'
19  include 'zdemout.h'
20 c
21 c Write out a banner page and another page with the title.
22 c
23  call banner(indexln)
24 c call print_title
25 c
26 c Branch node indicies.
27 c
28  if (nb .gt. 1) then
29  write(9,32)
30  write(9,35)
31  end if
32  do i = 1, nb-1
33  ip = i + 1
34  write(9,31) ip, (indexb(j,i),j=1,2)
35  end do
36 c
37 c Variable element node indicies.
38 c
39  if (nvar .gt. 0) then
40  write(9,34)
41  write(9,36)
42  end if
43  do i = 1, nvar
44  write(9,31) i, (indexv(j,i),j=1,3)
45  end do
46 c
47 c Energy source node indicies.
48 c
49  if (nvoltsource .gt. 0) then
50  write(9,833)
51  write(9,834)
52  end if
53  do i = 1, nvoltsource
54  write(9,31) i, (indexvs(j,i),j=1,2)
55  end do
56 c
57  if (ncurrsource .gt. 0) then
58  write(9,837)
59  write(9,838)
60  end if
61  do i = 1, ncurrsource
62  write(9,31) i, (indexcs(j,i),j=1,2)
63  end do
64 c
65  write(9,20)
66  write(9,21)
67  do i = 1, nb
68  write(9,31) i, ivbranch_end(i)
69  end do
70 c
71  write(9,22)
72  write(9,23)
73  do i = 1, nb
74  write(9,31) i, icbranch_end(i), itypcend(i)
75  end do
76 c
77 c MITL node indicies.
78 c
79  if (nmitline .gt. 0) then
80  write(9,835)
81  write(9,836)
82  end if
83  do i = 1, nmitline
84  write(9,31) i, (indexmitl(j,i),j=1,5)
85  end do
86 c
87  20 format (/'End-of-branch voltage source index parameters')
88  22 format (/'End-of-branch current source index parameters')
89  21 format (3x, 'BR I')
90  23 format (3x, 'BR I TYP')
91  32 format (/'Branch index parameters')
92  35 format (3x, 'BR I IB')
93  34 format (/'Variable element index parameters')
94  36 format (3x, 'IS I IV IB')
95  833 format (/'Voltage source index parameters')
96  837 format (/'Current source index parameters')
97  834 format (2x, 'IVS I IB')
98  838 format (2x, 'ICS I IB')
99  835 format (/'MITL index parameters')
100  836 format (1x, 'MITL BR IB N1 N2 SW')
101  31 format (6(i5,1x))
102 c
103 c
104 c ***** Output requests.
105 c
106 c Plots:
107 c
108 c if (numplt .gt. 0) then
109 c write(9,824) 'Plot requests '
110 c write(9,825)
111 c end if
112 c do i = 1, numplt
113 c write(9,826) i, ixbrnplt(i), ixblkplt(i), ixnodplt(i),
114 c & nskipplt(i)
115 c end do
116 c
117 c Prints:
118 c
119 c if (numprt .gt. 0) then
120 c write(9,824) 'print requests'
121 c write(9,825)
122 c end if
123 c do i = 1, numprt
124 c write(9,826) i, ixbrnprt(i), ixblkprt(i), ixnodprt(i),
125 c & nskipprt(i)
126 c end do
127 c
128 c Files:
129 c
130 c if (numfil .gt. 0) then
131 c write(9,824) 'File requests '
132 c write(9,825)
133 c end if
134 c do i = 1, numfil
135 c write(9,826) i, ixbrnfil(i), ixblkfil(i), ixnodfil(i),
136 c & nskipfil(i)
137 c end do
138 c
139 c Tables:
140 c
141 c if (numtab .gt. 0) then
142 c write(9,824) 'Table requests'
143 c write(9,825)
144 c end if
145 c do i = 1, numtab
146 c write(9,826) i, ixbrntab(i), ixblktab(i), ixnodtab(i),
147 c & nskiptab(i)
148 c end do
149 c
150 c UFO:
151 c
152 c if (numufo .gt. 0) then
153 c write(9,824) 'UFO requests '
154 c write(9,825)
155 c end if
156 c do i = 1, numufo
157 c write(9,826) i, ixbrnufo(i), ixblkufo(i), ixnodufo(i),
158 c & nskipufo
159 c end do
160 c
161  824 format (/a14)
162  825 format (' I', 2x,
163  & 'IXbrn', 2x, 'IXblk', 2x, 'IXnod', 2x, 'Nskip')
164  826 format (i2, 4(2x,i5))
165 c
166  return
167  end
subroutine echo_indicies
Definition: echoindx.f:1
subroutine banner(line)
Definition: prtbannr.f:1