14 parameter(indexln =
'SCREAMER Setup Indicies (for debugging)')
34 write(9,31) ip, (indexb(j,i),j=1,2)
44 write(9,31) i, (indexv(j,i),j=1,3)
49 if (nvoltsource .gt. 0)
then
54 write(9,31) i, (indexvs(j,i),j=1,2)
57 if (ncurrsource .gt. 0)
then
62 write(9,31) i, (indexcs(j,i),j=1,2)
68 write(9,31) i, ivbranch_end(i)
74 write(9,31) i, icbranch_end(i), itypcend(i)
79 if (nmitline .gt. 0)
then
84 write(9,31) i, (indexmitl(j,i),j=1,5)
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')
162 825
format (
' I', 2x,
163 &
'IXbrn', 2x,
'IXblk', 2x,
'IXnod', 2x,
'Nskip')
164 826
format (i2, 4(2x,i5))