diff options
| author | Angelo Rossi <angelo.rossi.homelab@gmail.com> | 2023-06-21 12:04:16 +0000 |
|---|---|---|
| committer | Angelo Rossi <angelo.rossi.homelab@gmail.com> | 2023-06-21 12:04:16 +0000 |
| commit | b18347ffc9db9641e215995edea1c04c363b2bdf (patch) | |
| tree | f3908dc911399f1a21e17d950355ee56dc0919ee /benchmarks/dc62.dat | |
Initial commit.
Diffstat (limited to 'benchmarks/dc62.dat')
| -rw-r--r-- | benchmarks/dc62.dat | 321 |
1 files changed, 321 insertions, 0 deletions
diff --git a/benchmarks/dc62.dat b/benchmarks/dc62.dat new file mode 100644 index 0000000..d271db8 --- /dev/null +++ b/benchmarks/dc62.dat @@ -0,0 +1,321 @@ +BEGIN NEW DATA CASE
+C BENCHMARK DC-62 (DC-66 of "M39." vintage)
+C Same four-phase South African line simulation as in DC-61, only here a
+C high-order Hauer model ("HAUER SETUP", no longer in program) is used.
+C 25 November 2000, WSM converts [Tv] and [Ti] from original use of
+C free-format for complex elements to wide format for real parts only.
+C This involves use of NO IMAGINARY PART as described in a newsletter
+C (April 2001 or later).
+PRINTED NUMBER WIDTH, 12, 2, { Request maximum precision (for 9 output columns)
+PEAK VOLTAGE MONITOR
+POWER FREQUENCY, 50.,
+ .000010 .020 50. 50.
+ 1 5 1 1 1 -1
+ 5 5 20 20 100 100 1000 200
+ SA-3 BUSA-3 .1260.75
+ SA-4 BUSA-4 .1260.75
+ BUSA-1 2. .03
+ BUSA-2 2. .03
+ BUSA-3 FIL1 .1 47.12
+ FIL1 .1 90.76
+ FIL1 3. 74.24
+ FIL1 6.166.94 94.25
+ FIL1 12.314.16 11.06
+ FIL1 12.314.16 5.87
+ FIL2 .01 1021.
+ FIL2 .1 14.14
+ BUSA-4 FIL3 .1 47.12
+ FIL3 FIL4 .1 90.76
+ FIL3 FIL4 3. 74.24
+ FIL3 FIL4 6.166.94 94.25
+ FIL3 FIL4 12.314.16 11.06
+ FIL3 FIL4 12.314.16 5.87
+ FIL4 .01 1021.
+ FIL4 .01 14.14
+C &&&&&&&&&&&&&&&&&&&&&& BEGIN UNIT-13 CARDS PUNCHED BY DC-65 .
+C #DATA FOR LINE SECTION 1: LENGTH = 0.2330096E+03
+C METRIC
+C 1 .2 .273 4 1.7653 0. 39. 20.
+C 2 .2 .273 4 1.7653 30. 39. 20.
+C 3 .392 .0585 4 3.1750 2.3 27.5 8.5 50.8 45.
+C 4 .392 .0585 4 3.1750 32.3 27.5 8.5 50.8 45.
+C
+C 100. 5000. 1 375.
+C 100. 50. 1 375.
+C 100. 5. 1 375. 9 21
+C
+-1BUSA-1BUSB-1 0.74300E-02 0.13695E-02 1 1 14 6 4
+ 0.24524677E+02 0.13280541E+03 0.00000000E+00 0.29592165E-02 0.50000000E+02 0
+ 0., 0.301017131E+03, 0.240474368E-01, 0., 0.911921587E+04, 0.866135515E+01
+ 0., 0.142378188E+03, 0.467439158E-01, 0., 0.597875358E+05, 0.157341296E+05
+ 0., 0.129882539E+04, 0.158087056E+00, 0., 0.602061446E+05, 0.350951915E+05
+ 0., 0.108960413E+05,-0.108480154E+02, 0., 0.600607627E+05,-0.503745837E+05
+ 1., 0.289467030E+05, 0.211443554E+00, -1.,-0.537514515E+04,-0.421452862E+01
+ 0., 0.178074955E+04, 0.254168820E+00, 0., 0.315149545E+04, 0.732001459E+00
+ 0., 0.239325862E+04,-0.862687875E-01, 0., 0.618967874E+05,-0.453102444E+03
+ 0., 0.619168960E+01,-0.420104801E-02, 0., 0.100000000E+01, 0.000000000E+00
+ 0., 0.157926984E+03,-0.556405973E-03, 0., 0.179349724E+04,-0.616894886E-03
+ 0., 0.154682388E+05,-0.740819400E-03, 0., 0.298676381E+06,-0.131478773E-02
+-1BUSA-2BUSB-2 0.77523E-02 0.12698E-02 2 2 14 6 4
+ 0.51203735E+01 0.54502236E+02 0.00000000E+00 0.31183848E-02 0.50000000E+02 0
+ 0., 0.313224674E+02,-0.663044870E-02, 0., 0.210626498E+06, 0.432723088E+01
+ 0., 0.182100421E+02, 0.260951895E-01, 0., 0.849632630E+06, 0.182628050E-02
+ 0., 0.227829005E+05, 0.478630198E+00, 0., 0.102901020E+07,-0.212641132E-02
+ 0., 0.124533203E+06, 0.211022159E+02, 0., 0.157231418E+07, 0.281738783E-03
+ 0., 0.142701493E+06,-0.267953188E+02, 0., 0.181740797E+07,-0.719862890E-04
+ 1., 0.398474670E+05, 0.418428806E+00, -1.,-0.214066736E+05, 0.125874270E+00
+ 1., 0.151593680E+06, 0.515504958E+00, -1.,-0.147087464E+06, 0.267749108E+00
+ 0., 0.365121200E+01,-0.350144906E-02, 0., 0.100000000E+01, 0.000000000E+00
+ 0., 0.249321282E+04,-0.431759968E-04, 0., 0.182369337E+06,-0.242606205E-04
+ 0., 0.239163482E+02,-0.406028697E-02, 0., 0.207918724E+06,-0.123123552E-03
+-1BUSA-3BUSB-3 0.32619E-02 0.12582E-02 3 3 14 6 4
+ 0.53536833E+02 0.12389964E+03 0.00000000E+00 0.12908552E-02 0.50000000E+02 0
+ 0., 0.134598777E+06,-0.150159946E-01, 0., 0.140301928E+07,-0.753366163E-01
+ 0., 0.284966044E+02, 0.819451304E-01, 0., 0.666744070E+07, 0.157059296E+04
+ 0., 0.272105388E+05, 0.213806667E+00, 0., 0.782363486E+07, 0.971629566E+04
+ 0., 0.272559469E+06,-0.223283773E+00, 0., 0.799352013E+07,-0.800863365E+06
+ 0., 0.361659615E+06, 0.100462472E+01, 0., 0.799483818E+07, 0.792080675E+06
+ 0., 0.491172730E+05,-0.165633449E+00, 0., 0.599908733E+07,-0.177051614E+03
+ 0., 0.792280597E+05, 0.366175685E+00, 0., 0.698913494E+07,-0.232733391E+04
+ 0., 0.115763918E+02,-0.117805658E-02, 0., 0.100000000E+01, 0.000000000E+00
+ 0., 0.197441131E+04,-0.373045199E-04, 0., 0.181295123E+06, 0.445567784E-04
+ 0., 0.976839246E+02,-0.202948282E-02, 0., 0.208740876E+06,-0.616217575E-04
+-1BUSA-4BUSB-4 0.30402E-02 0.12587E-02 4 4 6 6 4
+ 0.64988120E+02 0.13246385E+03 0.00000000E+00 0.12025589E-02 0.50000000E+02 0
+ 0., 0.169333103E+03, 0.332803226E-01, 0., 0.566559087E+06, 0.730448580E+00
+ 0., 0.680693506E+02, 0.708523592E-01, 0., 0.490942013E+07,-0.111902264E+01
+ 0., 0.602799468E+05, 0.326699789E+00, 0., 0.528347745E+07, 0.957741589E+00
+ 0., 0.646378180E+01,-0.792079833E-03, 0., 0.100000000E+01, 0.000000000E+00
+ 0., 0.142573596E+03,-0.117927457E-02, 0., 0.182764058E+06, 0.449937719E-04
+ 0., 0.578852181E+02,-0.104480206E-02, 0., 0.209333115E+06,-0.690541063E-04
+C ** TX MATRICES: FTX= 0.50000E+04
+C For historical reasons, let's document data that existed prior to 25 Nov
+C 2000. This former use of free-format is being replaced by the following
+C use of fixed format that was copied from newer JMarti [T] : 3E26.0
+C 0.87142042642E+00, 0.,-0.68364313402E+00, 0., 0.99967944506E+00, 0.
+C -0.42048418843E+00, 0.,
+C 0.88407538153E+00, 0., 0.55548365361E+00, 0., 0.41119257618E+00, 0.
+C 0.99968059968E+00, 0.,
+C 0.99996548754E+00, 0.,-0.95428680565E+00, 0.,-0.36537856597E+00, 0.
+C 0.81709827065E-01, 0.,
+C 0.99535953259E+00, 0., 0.99993400837E+00, 0.,-0.14508479886E+00, 0.
+C -0.28684188937E+00, 0.,
+C 0.13749143884E+00, 0.,-0.13487437424E+00, 0., 0.66382281216E+00, 0.
+C -0.32097010954E+00, 0.,
+C 0.13713603525E+00, 0., 0.10502753896E+00, 0., 0.25667806258E+00, 0.
+C 0.72423739519E+00, 0.,
+C 0.38040412741E+00, 0.,-0.42207400039E+00, 0.,-0.56925331264E+00, 0.
+C 0.13593347464E+00, 0.,
+C 0.38065940953E+00, 0., 0.44863255553E+00, 0.,-0.23815031667E+00, 0.
+C -0.49588955641E+00, 0.,
+NO IMAGINARY PART: { This allows us to omit the imaginary part, which is zero:
+ 0.87142042642E+00 -0.68364313402E+00 0.99967944506E+00
+ -0.42048418843E+00
+ 0.88407538153E+00 0.55548365361E+00 0.41119257618E+00
+ 0.99968059968E+00
+ 0.99996548754E+00 -0.95428680565E+00 -0.36537856597E+00
+ 0.81709827065E-01
+ 0.99535953259E+00 0.99993400837E+00 -0.14508479886E+00
+ -0.28684188937E+00
+ 0.13749143884E+00 -0.13487437424E+00 0.66382281216E+00
+ -0.32097010954E+00
+ 0.13713603525E+00 0.10502753896E+00 0.25667806258E+00
+ 0.72423739519E+00
+ 0.38040412741E+00 -0.42207400039E+00 -0.56925331264E+00
+ 0.13593347464E+00
+ 0.38065940953E+00 0.44863255553E+00 -0.23815031667E+00
+ -0.49588955641E+00
+C &&&&&&&&&&&&&&&&&&&&&& END UNIT-13 CARDS PUNCHED BY DC-65 .
+ TOWER 2.
+ BUSB-1 2. .03
+ BUSB-2 2. .03
+BLANK card ends all branch cards
+ BUSB-3TOWER .000995 1. 3
+BLANK cards ends all switch cards (here, just one, representing the fault)
+14SA-3 533000. 50. 0.0 -1.
+14SA-4 533000. 50. 180. -1.
+C --------------+------------------------------
+C From bus name | Names of all adjacent busses.
+C --------------+------------------------------
+C SA-3 |BUSA-3*
+C BUSA-3 |SA-3 * FIL1*BUSB-3*
+C SA-4 |BUSA-4*
+C BUSA-4 |SA-4 * FIL3*BUSB-4*
+C BUSA-1 |TERRA *BUSB-1*
+C BUSA-2 |TERRA *BUSB-2*
+C FIL1 |TERRA *TERRA *TERRA *TERRA *TERRA *BUSA-3*
+C FIL2 |TERRA *TERRA *
+C FIL3 |BUSA-4* FIL4* FIL4* FIL4* FIL4* FIL4*
+C FIL4 |TERRA *TERRA * FIL3* FIL3* FIL3* FIL3* FIL3*
+C BUSB-1 |TERRA *BUSA-1*
+C BUSB-2 |TERRA *BUSA-2*
+C BUSB-3 |BUSA-3*TOWER *
+C BUSB-4 |BUSA-4*
+C TOWER |TERRA *BUSB-3*
+C TERRA |BUSA-1*BUSA-2* FIL1* FIL1* FIL1* FIL1* FIL1* FIL2* FIL2*
+C --------------+------------------------------
+BLANK card ends source cards
+C Total network loss P-loss by summing injections = 1.427244164239E+07
+C 1st inject: SA-3 533000. 533000. 27.206416840329 1511.633587503
+C 1st inject: 0.0 0.0 1511.3887368079 88.9687335
+C Last inject: SA-4 -533000. 533000. -26.3487112737 1515.8296473689
+C Last inject: 6527332453E-10 180.0000 -1515.600628549 -90.9959866
+C
+C Step Time BUSB-3 FIL2 TOWER FIL4 FIL3
+C TOWER
+C
+C BUSB-1 BUSA-2 BUSA-1 BUSA-4 BUSA-3
+C
+C 0 0.0 .1012112E7 0.0 0.0 630.150593 3939.80139
+C 161.608804 147.910277 -155.53173 -928190.23 927091.892
+C 1 .1E-4 .1011754E7 0.0 0.0 638.819613 4046.20822
+C 186.778615 22.6361792 -114.24647 -927914.88 927042.528
+ 1
+C Last step begins: 2000 .02 0.0 0.0 -3274.1701 1954.38677 -19609.364
+C Last step begins: 250.022661 -61.141145 257.948281 -951899.68 138624.063
+C Overall simulation peak node voltage = 1.31694423E+06 occurred at bus "BUSB-4"
+C Variable maxima : .1012112E7 0.0 6501.36843 40746.7902 124200.262
+C Variable maxima : 8139.84047 3396.88809 18096.1397 .1056252E7 927119.833
+C Times of maxima : 0.0 0.0 .00101 .00951 .0024
+C Times of maxima : .00102 .0023 .00227 .01074 .9E-4
+C Final 5 maxima : .1056252E7 927119.833 533000. 533000. 3250.68422
+C Associated times : .01074 .9E-4 0.0 .01 .00101
+ PRINTER PLOT
+ 2One section of 375 km.
+ 144 .6 0.0 7.0 BUSB-3BUSB-4 { Axis limits: (-1.087, 1.012)
+ CALCOMP PLOT
+ 144 .7 0.0 7.0 BUSB-3BUSB-4
+BLANK card ending all plot cards
+BEGIN NEW DATA CASE
+C 2nd of 2 subcases halts immediately following the illustration of 5-phase
+C Semlyen branch card input. To the data of the preceding real case we add
+C an artificial 5th phase that is a copy of the 4th. But both terminal
+C nodes are grounded, to illustrate that such use should be possible. As
+C for [Tv] and [Ti], they were artificially constructed by making column 5
+C a copy of column 4 and row 5 a copy of row 4. It is the interpretation of
+C these matrices that are being illustrated (it looks OK). WSM, 25 Nov 2000
+PRINTED NUMBER WIDTH, 12, 2, { Request maximum precision (for 9 output columns)
+PEAK VOLTAGE MONITOR
+POWER FREQUENCY, 50.,
+ .000010 .020 50. 50.
+ 1 5 1 1 1 -1
+ 5 5 20 20 100 100 1000 200
+ SA-3 BUSA-3 .1260.75
+ SA-4 BUSA-4 .1260.75
+ BUSA-1 2. .03
+ BUSA-2 2. .03
+ BUSA-3 FIL1 .1 47.12
+ FIL1 .1 90.76
+ FIL1 3. 74.24
+ FIL1 6.166.94 94.25
+ FIL1 12.314.16 11.06
+ FIL1 12.314.16 5.87
+ FIL2 .01 1021.
+ FIL2 .1 14.14
+ BUSA-4 FIL3 .1 47.12
+ FIL3 FIL4 .1 90.76
+ FIL3 FIL4 3. 74.24
+ FIL3 FIL4 6.166.94 94.25
+ FIL3 FIL4 12.314.16 11.06
+ FIL3 FIL4 12.314.16 5.87
+ FIL4 .01 1021.
+ FIL4 .01 14.14
+C &&&&&&&&&&&&&&&&&&&&&& BEGIN UNIT-13 CARDS PUNCHED BY DC-65 .
+C #DATA FOR LINE SECTION 1: LENGTH = 0.2330096E+03
+C METRIC
+C 1 .2 .273 4 1.7653 0. 39. 20.
+C 2 .2 .273 4 1.7653 30. 39. 20.
+C 3 .392 .0585 4 3.1750 2.3 27.5 8.5 50.8 45.
+C 4 .392 .0585 4 3.1750 32.3 27.5 8.5 50.8 45.
+C
+C 100. 5000. 1 375.
+C 100. 50. 1 375.
+C 100. 5. 1 375. 9 21
+C
+-1BUSA-1BUSB-1 0.74300E-02 0.13695E-02 1 1 14 6 5
+ 0.24524677E+02 0.13280541E+03 0.00000000E+00 0.29592165E-02 0.50000000E+02 0
+ 0., 0.301017131E+03, 0.240474368E-01, 0., 0.911921587E+04, 0.866135515E+01
+ 0., 0.142378188E+03, 0.467439158E-01, 0., 0.597875358E+05, 0.157341296E+05
+ 0., 0.129882539E+04, 0.158087056E+00, 0., 0.602061446E+05, 0.350951915E+05
+ 0., 0.108960413E+05,-0.108480154E+02, 0., 0.600607627E+05,-0.503745837E+05
+ 1., 0.289467030E+05, 0.211443554E+00, -1.,-0.537514515E+04,-0.421452862E+01
+ 0., 0.178074955E+04, 0.254168820E+00, 0., 0.315149545E+04, 0.732001459E+00
+ 0., 0.239325862E+04,-0.862687875E-01, 0., 0.618967874E+05,-0.453102444E+03
+ 0., 0.619168960E+01,-0.420104801E-02, 0., 0.100000000E+01, 0.000000000E+00
+ 0., 0.157926984E+03,-0.556405973E-03, 0., 0.179349724E+04,-0.616894886E-03
+ 0., 0.154682388E+05,-0.740819400E-03, 0., 0.298676381E+06,-0.131478773E-02
+-1BUSA-2BUSB-2 0.77523E-02 0.12698E-02 2 2 14 6 5
+ 0.51203735E+01 0.54502236E+02 0.00000000E+00 0.31183848E-02 0.50000000E+02 0
+ 0., 0.313224674E+02,-0.663044870E-02, 0., 0.210626498E+06, 0.432723088E+01
+ 0., 0.182100421E+02, 0.260951895E-01, 0., 0.849632630E+06, 0.182628050E-02
+ 0., 0.227829005E+05, 0.478630198E+00, 0., 0.102901020E+07,-0.212641132E-02
+ 0., 0.124533203E+06, 0.211022159E+02, 0., 0.157231418E+07, 0.281738783E-03
+ 0., 0.142701493E+06,-0.267953188E+02, 0., 0.181740797E+07,-0.719862890E-04
+ 1., 0.398474670E+05, 0.418428806E+00, -1.,-0.214066736E+05, 0.125874270E+00
+ 1., 0.151593680E+06, 0.515504958E+00, -1.,-0.147087464E+06, 0.267749108E+00
+ 0., 0.365121200E+01,-0.350144906E-02, 0., 0.100000000E+01, 0.000000000E+00
+ 0., 0.249321282E+04,-0.431759968E-04, 0., 0.182369337E+06,-0.242606205E-04
+ 0., 0.239163482E+02,-0.406028697E-02, 0., 0.207918724E+06,-0.123123552E-03
+-1BUSA-3BUSB-3 0.32619E-02 0.12582E-02 3 3 14 6 5
+ 0.53536833E+02 0.12389964E+03 0.00000000E+00 0.12908552E-02 0.50000000E+02 0
+ 0., 0.134598777E+06,-0.150159946E-01, 0., 0.140301928E+07,-0.753366163E-01
+ 0., 0.284966044E+02, 0.819451304E-01, 0., 0.666744070E+07, 0.157059296E+04
+ 0., 0.272105388E+05, 0.213806667E+00, 0., 0.782363486E+07, 0.971629566E+04
+ 0., 0.272559469E+06,-0.223283773E+00, 0., 0.799352013E+07,-0.800863365E+06
+ 0., 0.361659615E+06, 0.100462472E+01, 0., 0.799483818E+07, 0.792080675E+06
+ 0., 0.491172730E+05,-0.165633449E+00, 0., 0.599908733E+07,-0.177051614E+03
+ 0., 0.792280597E+05, 0.366175685E+00, 0., 0.698913494E+07,-0.232733391E+04
+ 0., 0.115763918E+02,-0.117805658E-02, 0., 0.100000000E+01, 0.000000000E+00
+ 0., 0.197441131E+04,-0.373045199E-04, 0., 0.181295123E+06, 0.445567784E-04
+ 0., 0.976839246E+02,-0.202948282E-02, 0., 0.208740876E+06,-0.616217575E-04
+-1BUSA-4BUSB-4 0.30402E-02 0.12587E-02 4 4 6 6 5
+ 0.64988120E+02 0.13246385E+03 0.00000000E+00 0.12025589E-02 0.50000000E+02 0
+ 0., 0.169333103E+03, 0.332803226E-01, 0., 0.566559087E+06, 0.730448580E+00
+ 0., 0.680693506E+02, 0.708523592E-01, 0., 0.490942013E+07,-0.111902264E+01
+ 0., 0.602799468E+05, 0.326699789E+00, 0., 0.528347745E+07, 0.957741589E+00
+ 0., 0.646378180E+01,-0.792079833E-03, 0., 0.100000000E+01, 0.000000000E+00
+ 0., 0.142573596E+03,-0.117927457E-02, 0., 0.182764058E+06, 0.449937719E-04
+ 0., 0.578852181E+02,-0.104480206E-02, 0., 0.209333115E+06,-0.690541063E-04
+C -1FIVEA FIVEB 0.30402E-02 0.12587E-02 5 5 6 6 5
+-1 0.30402E-02 0.12587E-02 5 5 6 6 5
+ 0.64988120E+02 0.13246385E+03 0.00000000E+00 0.12025589E-02 0.50000000E+02 0
+ 0., 0.169333103E+03, 0.332803226E-01, 0., 0.566559087E+06, 0.730448580E+00
+ 0., 0.680693506E+02, 0.708523592E-01, 0., 0.490942013E+07,-0.111902264E+01
+ 0., 0.602799468E+05, 0.326699789E+00, 0., 0.528347745E+07, 0.957741589E+00
+ 0., 0.646378180E+01,-0.792079833E-03, 0., 0.100000000E+01, 0.000000000E+00
+ 0., 0.142573596E+03,-0.117927457E-02, 0., 0.182764058E+06, 0.449937719E-04
+ 0., 0.578852181E+02,-0.104480206E-02, 0., 0.209333115E+06,-0.690541063E-04
+C NO IMAGINARY PART: { This allows us to omit the imaginary part, which is zero:
+C The preceding declaration is not needed because the one in the 1st subcase
+C remains in effect. This is like a PRINTER PLOT declaration that way.
+C First of two transformation matrices is 5x5 [Tv]:
+ 0.87142042642E+00 -0.68364313402E+00 0.99967944506E+00
+ -0.42048418843E+00 -0.42048418843E+00
+ 0.88407538153E+00 0.55548365361E+00 0.41119257618E+00
+ 0.99968059968E+00 0.99968059968E+00
+ 0.99996548754E+00 -0.95428680565E+00 -0.36537856597E+00
+ 0.81709827065E-01 0.81709827065E-01
+ 0.99535953259E+00 0.99993400837E+00 -0.14508479886E+00
+ -0.28684188937E+00 -0.28684188937E+00
+ 0.99535953259E+00 0.99993400837E+00 -0.14508479886E+00
+ -0.28684188937E+00 -0.28684188937E+00 { End 5th row of [Tv]
+C 2nd of two transformation matrices is 5x5 [Ti]:
+ 0.13749143884E+00 -0.13487437424E+00 0.66382281216E+00
+ -0.32097010954E+00 -0.32097010954E+00
+ 0.13713603525E+00 0.10502753896E+00 0.25667806258E+00
+ 0.72423739519E+00 0.72423739519E+00
+ 0.38040412741E+00 -0.42207400039E+00 -0.56925331264E+00
+ 0.13593347464E+00 0.13593347464E+00
+ 0.38065940953E+00 0.44863255553E+00 -0.23815031667E+00
+ -0.49588955641E+00 -0.49588955641E+00
+ 0.38065940953E+00 0.44863255553E+00 -0.23815031667E+00
+ -0.49588955641E+00 -0.49588955641E+00 { End 5th row of [Ti]
+YES, IMAGINARY PART: { Illustrate optional return to default use of imaginary
+C The preceding has no effect for this data. But if the user wants to
+C cancel the NO IMAGINARY PART declaration of the first subcase, this
+C is the way to do it. Note such use would be required if old Semlyen
+C branch cards followed these newer ones having implied zeros.
+ TOWER 2.
+$STOP { Having illustrated 5-phase Semlyen data input (particularly [T]), halt
+BEGIN NEW DATA CASE
+BLANK
|