| 1 $JOB KILTER NETWORK TEST $EXECUTE IBJOB IBJOB VERSION 5 HAS CONTROL. | $IBJOB GO,MAP OKF30003 | $IBFTC OKF3 OKF30004 1 12/01/64 PAGE 1 | OKF3 - EFN SOURCE STATEMENT - IFN(S) - | 0| C MAIN ROUTINE OF RS OKF3 OUT OF KILTER NETWORK ROUTINE OKF30005 | REAL NN,KA OKF30006 COMMON NN( 500),NP( 500),IL( 501),JL( 501),IJ( 500),NL( 500), OKF30007 | 2 JI(1000),KC(1000),KU(1000),KX(1000),JA(1000),IB(1000),LW(1000), OKF30008 | 3 LC(8),KA(12,2),KQ(9),IX(9),M,N,LER,KAT,KOR,KTER,MINE,IFIN,KI,KO,KOKF30009 | C SYSTEM INPUT TAPE OKF30010 | KI=5 OKF30011 C SYSTEM OUTPUT TAPE OKF30012 | KO=6 OKF30013 | C RESERVED INPUT TAPE OKF30014 | KQ(3)=9 OKF30015 | C RESERVED OUTPUT TAPE OKF30016 KQ(2)=10 OKF30017 | C MAXIMUM NODES-NODMAX- DIMENSION OF NN NP IJ NL-- +1 FOR IL JL OKF30018 | KQ(5) = 500 OKF30019 | C MAXIMUM ARCS-ARCMAX- DIMENSION OF JI KC KU KX JA IB LW OKF30020 | KQ(4) = 1000 OKF30021 C INFINITY OKF30022 | IFIN = 2147483647 OKF30023 | C OKF30024 | C ERROR NUMBERS (IN LER) OKF30025 | C 1 TRIVIAL (TRANSPORTATION PROBLEM) OKF30026 C 2 CARD PUNCHING ERROR WHICH MAY BE RECOVERABLE OKF30027 | C 3 ERROR NOT RECOVERABLE, BUT CARD READING MAY CONTINUE OKF30028 | C 4 CATASTROPHIC ERROR- RUN MUST BE SKIPPED OKF30029 | C -1 (AFTER SOLVE) PROBLEM INFEASABLE OKF30030 | C -2 KICKED OFF BY TIME LIMITATION OKF30031 C -3 OVERFLOW IN NODE PRICES OKF30032 | C OKF30033 | KQ(6)=0 OKF30034 | KQ(9)=0 OKF30035 | KAT=0 OKF30036 100 L=1 OKF30037 | 101 CALL PRELIM(KS,L) OKF30038 7 | IF (KS.NE.0) GO TO 1 OKF30039 | 200 CALL ARCRD(L) OKF30040 13 | IF (LER.GE.4) GO TO 88 OKF30041 IF (L.EQ.0) GO TO 1 OKF30042 | 3 CALL NODERD OKF30043 22 | 1 IF (KAT.EQ.0.OR.N.EQ.0) GO TO 87 OKF30044 | CALL POSTRD OKF30045 26 | CALL SOLVE(KE) OKF30046 28 IF (LER.GT.0) GO TO 88 OKF30047 | 199 CALL OUTPUT (KE) OKF30048 34 | GO TO 100 OKF30049 | 87 WRITE(KO,59) OKF30050 36 | LER=4 OKF30051 88 KAT=0 OKF30052 | WRITE(KO,58) LER OKF30053 38 | 89 L = LOOKUP(KA(1,1)) OKF30054 40 | IF(L.EQ.1.OR.L.EQ.4.OR.L.EQ.6.OR.L.EQ.7.OR.L.EQ.15) GO TO 101 OKF30055 | READ (KI,51)KA(1,1) OKF30056 44 GO TO 89 OKF30057 | 51 FORMAT(A6) OKF30058 | 58 FORMAT( 5H0TYPE,I6,24H ERROR, SKIP TO NEXT RUN) OKF30059 | 1 12/01/64 PAGE 2 | OKF3 - EFN SOURCE STATEMENT - IFN(S) - 0 59 FORMAT(30H ****NO ARC DATA IN THIS RUN ) OKF30060 | END OKF30061 | 1 12/01/64 PAGE 3 | | 0 -| $IBFTC SUB1 OKF30062 | 1 12/01/64 PAGE 4 | SUB1 - EFN SOURCE STATEMENT - IFN(S) - | 0 SUBROUTINE PRELIM(KS,L) OKF30063 | C READ PRELIMINARY CONTROL CARDS OKF30064 | REAL NN,KA OKF30065 | COMMON NN( 500),NP( 500),IL( 501),JL( 501),IJ( 500),NL( 500), OKF30066 | 2 JI(1000),KC(1000),KU(1000),KX(1000),JA(1000),IB(1000),LW(1000), OKF30067 3 LC(8),KA(12,2),KQ(9),IX(9),M,N,LER,KAT,KOR,KTER,MINE,IFIN,KI,KO,KOKF30068 | LER=0 OKF30069 | KS=0 OKF30070 | KOR=KI OKF30071 | KQ3=KQ(3) OKF30072 WRITE (KO,96) OKF30073 5 | CALL CUTOFF(LL) OKF30074 6 | IF(LL.NE.1) GO TO 20 OKF30075 | 11 WRITE (KO,97) OKF30076 | C END JOB OKF30077 11 180 IF (KQ(6).EQ.0) GO TO 182 OKF30078 | 181 K2=KQ(2) OKF30079 | WRITE (KO,98) OKF30080 16 | END FILE K2 OKF30081 17 | GO TO 183 OKF30082 182 WRITE (KO,99) OKF30083 19 | 183 CALL EXIT OKF30084 | C READ A CONTROL CARD OKF30085 21 | 21 READ (KOR,90)(KA(I,1),I=1,12) OKF30086 22 | WRITE (KO,91)(KA(I,1),I=1,12) OKF30087 29 L=LOOKUP(KA(1,1)) OKF30088 36 | 20 IF(L.EQ.15) GO TO 180 OKF30089 | IF (L.EQ.17) GO TO 21 OKF30090 | IF (L.GT.7) GO TO 110 OKF30091 | GO TO (21,50,110,6,110,6,60),L OKF30092 C TITLE OKF30093 | 110 DO 112 I=1,12 OKF30094 | 112 KA(I,2)=KA(I,1) OKF30095 | GO TO 21 OKF30096 | C SAVE OKF30097 50 KS=1 OKF30098 | RETURN OKF30099 | C ARCS OKF30100 | 60 KAT=1 OKF30101 | RETURN OKF30102 C TAPE ,SKIP OKF30103 | 6 IF (KQ(9).NE.0) GO TO 7 OKF30104 | 2 KQ(9)=1 OKF30105 | REWIND KQ3 OKF30106 65 | 7 IF (L.NE.4) GO TO 13 OKF30107 KOR=KQ3 OKF30108 | GO TO 21 OKF30109 | C SKIP OKF30110 | 13 READ (KQ3,92)KA(1,1) OKF30111 70 | IF (LOOKUP(KA(1,1)).NE.16) GO TO 13 OKF30112 71 GO TO 21 OKF30113 | 90 FORMAT(12A6) OKF30114 | 91 FORMAT(1H012A6) OKF30115 | 92 FORMAT(A6) OKF30116 | 96 FORMAT(1H1) OKF30117 1 12/01/64 PAGE 5 | SUB1 - EFN SOURCE STATEMENT - IFN(S) - | 0 97 FORMAT(24H TIME LIMIT EXCEEDED ) OKF30118 | 98 FORMAT(31H0RESERVED TAPE HAS BEEN WRITTEN///1H0) OKF30119 | 99 FORMAT(34H0NO RESERVED TAPE HAS BEEN WRITTEN) OKF30120 END OKF30121 | 1 12/01/64 PAGE 6 | | 0| - $IBFTC SUB2 OKF30122 | 1 12/01/64 PAGE 7 | SUB2 - EFN SOURCE STATEMENT - IFN(S) - | 0| SUBROUTINE ARCRD(LL) OKF30123 C ARC READ, READ ARC DATA CARDS OKF30124 | REAL NN,KA OKF30125 | COMMON NN( 500),NP( 500),IL( 501),JL( 501),IJ( 500),NL( 500), OKF30126 | 2 JI(1000),KC(1000),KU(1000),KX(1000),JA(1000),IB(1000),LW(1000), OKF30127 | 3 LC(8),KA(12,2),KQ(9),IX(9),M,N,LER,KAT,KOR,KTER,MINE,IFIN,KI,KO,KOKF30128 MM=0 OKF30129 | M = 0 OKF30130 | N=0 OKF30131 | LL=0 OKF30132 | 6 READ (KOR,90) (KA(I,1),I=1,3),(IX(I),I=1,4) OKF30133 5 K = LOOKUP(KA(1,1)) OKF30134 18 | IF (K.EQ.16) GO TO 1 OKF30135 | IF (K.EQ.8) GO TO 2 OKF30136 | IF (K.EQ.17) GO TO 3 OKF30137 | GO TO 4 OKF30138 C END OF DATA OKF30139 | 2 LL=2 OKF30140 | 1 DO 99 I=MM,M OKF30141 | IF (I.GT.MM)WRITE(KO,94) NN(I) OKF30142 35 | IL(I+1) = N+1 OKF30143 99 CONTINUE OKF30144 | IF(M.GT.KQ(5)) GO TO 23 OKF30145 | IF (MM.NE.M) LER=MAX0(LER,1) OKF30146 | C CLEAR NODE PRICES OKF30147 | DO 100 I=1,M OKF30148 NP(I)=0 OKF30149 | 100 CONTINUE OKF30150 | RETURN OKF30151 | C STORE ARC DATA OKF30152 | 3 N=N+1 OKF30153 IF (N.GT.KQ(4)) GO TO 20 OKF30154 | NM=N OKF30155 | 7 KC(N)=IX(1) OKF30156 | KU(N)=IX(2) OKF30157 | LW(N)=IX(3) OKF30158 KX(N)=IX(4) OKF30159 | K=NODENO(KA(2,1)) OKF30160 64 | IF (K.EQ.MM) GO TO 9 OKF30161 | IF(K.LT.MM) GO TO 10 OKF30162 | C EXCHANGE NODES OKF30163 MM=MM+1 OKF30164 | NN(K)=NN(MM) OKF30165 | NN(MM)=KA(2,1) OKF30166 | IF(K.GT.M) M= M+1 OKF30167 | DO 30 J=1,N OKF30168 IF (JA(J).EQ.K) GO TO 29 OKF30169 | IF (JA(J).EQ.MM) JA(J)=K OKF30170 | GO TO 30 OKF30171 | 29 JA(J)=MM OKF30172 | 30 CONTINUE OKF30173 IL(MM)=N OKF30174 | 9 K=NODENO (KA(3,1)) OKF30175 97 | IF (K.GT.M) M=M+1 OKF30176 | NN(K)=KA(3,1) OKF30177 | 1 12/01/64 PAGE 8 SUB2 - EFN SOURCE STATEMENT - IFN(S) - | 0 JA(NM) = K OKF30178 | GO TO 06 OKF30179 | C ARCS OUT OF ORDER, SLIDE THEM DOWN OKF30180 | 10 WRITE (KO,91) KA(2,1),KA(3,1) OKF30181 104 LER = MAX0(LER,2) OKF30182 | KK=K+1 OKF30183 | DO 101 I=KK,MM OKF30184 | IL(I)=IL(I)+1 OKF30185 | 101 CONTINUE OKF30186 KK= IL(K+1) OKF30187 | DO 102 JJ=KK,N OKF30188 | J = N-JJ+KK OKF30189 | KC(J)=KC(J-1) OKF30190 | KX(J)=KX(J-1) OKF30191 KU(J)=KU(J-1) OKF30192 | LW(J)=LW(J-1) OKF30193 | JA(J)=JA(J-1) OKF30194 | 102 CONTINUE OKF30195 | NM=KK-1 OKF30196 KC(NM)=IX(1) OKF30197 | KU(NM)=IX(2) OKF30198 | LW(NM)=IX(3) OKF30199 | KX(NM)=IX(4) OKF30200 | GO TO 9 OKF30201 C ERROR MESSAGES OKF30202 | 4 NM=N+1 OKF30203 | WRITE (KO,92)NM OKF30204 141 | WRITE (KO,93) (KA(I,1),I=1,3),(IX(I),I=1,4) OKF30205 142 | LER = MAX0(LER,3) OKF30206 IF (K.NE.20) RETURN OKF30207 | GO TO 6 OKF30208 | 20 WRITE (KO,89) OKF30209 159 | 25 LER= 4 OKF30210 | RETURN OKF30211 23 WRITE (KO,88) M,KQ(5) OKF30212 162 | GO TO 25 OKF30213 | 88 FORMAT(5H ****,I6,30H NODES IN THIS RUN MAXIMUM IS,I6) OKF30214 | 89 FORMAT(30H0TOO MANY ARCS IN THIS RUN****) OKF30215 | 90 FORMAT(3A6,2X,4I10) OKF30216 91 FORMAT(36H **SOURCE NODES NOT ADJACENT IN ARC A6,1X,A6) OKF30217 | 92 FORMAT(29H ***FIELD ERROR IN ARC NUMBER,I6) OKF30218 | 93 FORMAT( 1X,3A6,2X,4I10/1X) OKF30219 | 94 FORMAT(24H *NO ARC BEGINS AT NODE A6) OKF30220 | END OKF30221 1 12/01/64 PAGE 9 | | 0| -| $IBFTC SUB3 OKF30222 1 12/01/64 PAGE 10 | SUB3 - EFN SOURCE STATEMENT - IFN(S) - | 0| SUBROUTINE NODERD OKF30223 | C NODE READ, READ NODE DATA CARDS OKF30224 REAL NN,KA OKF30225 | COMMON NN( 500),NP( 500),IL( 501),JL( 501),IJ( 500),NL( 500), OKF30226 | 2 JI(1000),KC(1000),KU(1000),KX(1000),JA(1000),IB(1000),LW(1000), OKF30227 | 3 LC(8),KA(12,2),KQ(9),IX(9),M,N,LER,KAT,KOR,KTER,MINE,IFIN,KI,KO,KOKF30228 | I = 0 OKF30229 03 I = I+1 OKF30230 | READ (KOR,90) KA(1,1),KA(2,1),IX(1) OKF30231 3 | KEYW=LOOKUP(KA(1,1)) OKF30232 4 | IF( KEYW.EQ.16) RETURN OKF30233 | IF(KEYW.NE.17) GO TO 2 OKF30234 K=NODENO(KA(2,1)) OKF30235 11 | IF (K.GT.M) GO TO 6 OKF30236 | 5 NP(K)=IX(1) OKF30237 | GO TO 03 OKF30238 | 6 WRITE (KO,91) KA(2,1) OKF30239 19 10 LER= MAX0(LER,1) OKF30240 | GO TO 03 OKF30241 | 2 WRITE (KO,92)I,KA(1,1),KA(2,1),IX(1) OKF30242 22 | LER = MAX0(LER,2) OKF30243 | IF (KEYW.NE.20) RETURN OKF30244 GO TO 10 OKF30245 | 99 RETURN OKF30246 | 90 FORMAT(2A6,8X,I10) OKF30247 | 91 FORMAT(7H *NODE , A6,12H NOT IN ARCS ) OKF30248 | 92 FORMAT(34H **FIELD ERROR IN NODE CARD NUMBER,I6/1H 2A6,8X,I10) OKF30249 END OKF30250 | 1 12/01/64 PAGE 11 | | 0| - $IBFTC SUB4 OKF30251 | 1 12/01/64 PAGE 12 | SUB4 - EFN SOURCE STATEMENT - IFN(S) - | 0| SUBROUTINE POSTRD OKF30252 C READ POST-DATA CONTROL CARDS OKF30253 | REAL NN,KA OKF30254 | COMMON NN( 500),NP( 500),IL( 501),JL( 501),IJ( 500),NL( 500), OKF30255 | 2 JI(1000),KC(1000),KU(1000),KX(1000),JA(1000),IB(1000),LW(1000), OKF30256 | 3 LC(8),KA(12,2),KQ(9),IX(9),M,N,LER,KAT,KOR,KTER,MINE,IFIN,KI,KO,KOKF30257 C OUTPUT FLAGS OKF30258 | DO 19 I=1,8 OKF30259 | LC(I)=0 OKF30260 | 19 CONTINUE OKF30261 | KQ(7)=1 OKF30262 KQ(8)=0 OKF30263 | 20 READ (KI,95)(KA(I,1),I=1,3),(IX(I),I=1,5) OKF30264 9 | L = LOOKUP(KA(1,1)) OKF30265 22 | IF (L.EQ.18.OR.L.EQ.17) GO TO 140 OKF30266 | WRITE (KO,88)KA(1,1),KA(2,1),KA(3,1) OKF30267 26 IF (L.EQ.9) GO TO 121 OKF30268 | IF (L.EQ.14.OR.L.EQ.5.OR.L.EQ.13) GO TO 111 OKF30269 | IF (L.EQ.3) GO TO 300 OKF30270 | GO TO 200 OKF30271 | C COMPUTE OKF30272 111 WRITE (KO,93)N,M OKF30273 37 | IF (L.EQ.14) KQ(8)=1 OKF30274 | IF (L.EQ.13) KQ(8)=2 OKF30275 | 999 RETURN OKF30276 | C SET OUTPUT CONTROL OKF30277 121 L = LOOKUP(KA(2,1)) -9 OKF30278 44 | IF (L.EQ.10) GO TO 82 OKF30279 | IF (L.LE.0.OR.L.GT.3) GO TO 200 OKF30280 | 81 LC(L) = 1 OKF30281 | GO TO 20 OKF30282 82 KQ(7) =0 OKF30283 | GO TO 20 OKF30284 | C ALTER OKF30285 | 140 IF (IX(1).LT.1) IX(1)=1 OKF30286 | 142 WRITE (KO,91)(KA(I,1),I=1,3),(IX(I),I=1,5) OKF30287 60 N1=NODENO(KA(2,1)) OKF30288 73 | N2=NODENO(KA(3,1)) OKF30289 75 | IF (N1.LE.M .AND. N2.LE.M) GO TO 145 OKF30290 | 144 WRITE (KO,92) OKF30291 80 | LER=MAX0(LER,3) OKF30292 GO TO 20 OKF30293 | 145 L1 = IL(N1) OKF30294 | L2 = IL(N1+1) -1 OKF30295 | IF (L2.LT.L1)GO TO 144 OKF30296 | 146 DO 147 LL=L1,L2 OKF30297 IF (JA(LL).NE.N2) GO TO 147 OKF30298 | IX(1)=IX(1)-1 OKF30299 | IF (IX(1).EQ.0) GO TO 149 OKF30300 | 147 CONTINUE OKF30301 | GO TO 144 OKF30302 149 KC(LL)=IX(2) OKF30303 | KU(LL)=IX(3) OKF30304 | LW(LL)=IX(4) OKF30305 | KX(LL)=KX(LL)+IX(5) OKF30306 | 1 12/01/64 PAGE 13 SUB4 - EFN SOURCE STATEMENT - IFN(S) - | 0 GO TO 20 OKF30307 | C REFNOD OKF30308 | 300 L=NODENO(KA(2,1)) OKF30309 113 | IF (L.GT.M) GO TO 301 OKF30310 KAT=L OKF30311 | GO TO 20 OKF30312 | 301 WRITE(KO,94) KA(2,1) OKF30313 119 | LER= MAX0(LER,1) OKF30314 | GO TO 20 OKF30315 C CARD PUNCHING ERROR OKF30316 | 200 LER=MAX0(LER,3) OKF30317 | WRITE (KO,87)KA(1,1),KA(2,1),KA(3,1) OKF30318 122 | IF (L.NE.20) RETURN OKF30319 | GO TO 20 OKF30320 87 FORMAT(18H ***ILLEGAL CARD =3A6) OKF30321 | 88 FORMAT(1X,3A6) OKF30322 | 91 FORMAT( 1X,3A6,I2,5I10) OKF30323 | 92 FORMAT(42H ***ARC ON ABOVE ALTER CARD NOT DEFINED ) OKF30324 | 93 FORMAT(12H NO OF ARCS=I5, 13H NO OF NODES=I5) OKF30325 94 FORMAT(9H ** NODE A6,12H NOT IN ARCS ) OKF30326 | 95 FORMAT(3A6,I2,5I10) OKF30327 | END OKF30328 | 1 12/01/64 PAGE 14 | 0| -| $IBFTC SOLV OKF30329 | 1 12/01/64 PAGE 15 | SOLV - EFN SOURCE STATEMENT - IFN(S) - 0| SUBROUTINE SOLVE (KE) OKF30330 | C SET UP ARRAYS AND CALL THE NETWORK SOLVING ROUTINES OKF30331 | REAL NN,KA OKF30332 | COMMON NN( 500),NP( 500),IL( 501),JL( 501),IJ( 500),NL( 500), OKF30333 2 JI(1000),KC(1000),KU(1000),KX(1000),JA(1000),IB(1000),LW(1000), OKF30334 | 3 LC(8),KA(12,2),KQ(9),IX(9),M,N,LER,KAT,KOR,KTER,MINE,IFIN,KI,KO,KOKF30335 | C FORM JL LIST OKF30336 | DO 8 I=1,M OKF30337 | NL(I)=0 OKF30338 8 CONTINUE OKF30339 | DO 10 J=1,N OKF30340 | I = JA(J) OKF30341 | NL(I)=NL(I)+1 OKF30342 | 10 CONTINUE OKF30343 JL(1) = 1 OKF30344 | DO 20 I=1,M OKF30345 | IF (NL(I).NE.0) GO TO 23 OKF30346 | WRITE (KO,91)NN(I) OKF30347 25 | LER = MAX0(LER,1) OKF30348 23 JL(I+1) = JL(I) + NL(I) OKF30349 | IJ(I)=JL(I) OKF30350 | NL(I)=0 OKF30351 | 20 CONTINUE OKF30352 | I=1 OKF30353 DO 2 J=1,N OKF30354 | IF (J.GE.IL(I+1))I=I+1 OKF30355 | K=JA(J) OKF30356 | C CALCULATE CIRCULATION AND CBAR OKF30357 | NL(I)=NL(I)-KX(J) OKF30358 NL(K)=NL(K)+KX(J) OKF30359 | KC(J)=KC(J)+NP(I)-NP(K) OKF30360 | C TEST FOR LOWER BOUND GREATER THAN UPPER OKF30361 | IF (LW(J).LE.KU(J)) GO TO 50 OKF30362 | WRITE(KO,51) NN(I),NN(K) OKF30363 60 LER=MAX0(LER,2) OKF30364 | IX(9)=KU(J) OKF30365 | KU(J)=LW(J) OKF30366 | LW(J)=IX(9) OKF30367 | C SUBTRACT LOWER BOUND FROM UPPER AND FROM X. OKF30368 50 KU(J)=IABS(KU(J)-LW(J)) OKF30369 | KX(J)=KX(J)-LW(J) OKF30370 | C SETUP JI AND IB LISTS OKF30371 | L=IJ(K) OKF30372 | JI(L)=I OKF30373 IB(L)=J OKF30374 | IJ(K)=IJ(K)+1 OKF30375 | IF (I.NE.K) GO TO 2 OKF30376 | KX(J) = 0 OKF30377 | IF (KC(J).LT.0) KX(J)=KU(J) OKF30378 2 CONTINUE OKF30379 | C MESSAGE FOR NON ZERO CIRCULATION OKF30380 | DO 5 I=1,M OKF30381 | IF (NL(I).NE.0) WRITE(KO,90) NN(I) ,NL(I) OKF30382 97 | IF (NL(I).NE.0) LER=MAX0(LER,1) OKF30383 5 CONTINUE OKF30384 | 1 12/01/64 PAGE 16 | SOLV - EFN SOURCE STATEMENT - IFN(S) - | 0 KE=0 OKF30385 | IF (LER.GT.KQ(8)) RETURN OKF30386 KLE=0 OKF30387 | I=1 OKF30388 | C TRY TO BRING ALL ARCS INTO KILTER OKF30389 | DO 26 K=1,N OKF30390 | IF (K.GE.IL(I+1)) I=I+1 OKF30391 CALL CUTOFF(KFX) OKF30392 118 | IF (KFX.EQ.1) GO TO 16 OKF30393 | CALL KILTER (I) OKF30394 123 | IF (LER.EQ.(-3)) GO TO 24 OKF30395 | IF(LER.NE.0) KE=KE+1 OKF30396 IF (KE.NE.1) GO TO 26 OKF30397 | IX(8)=K OKF30398 | IX(9)=I OKF30399 | 26 CONTINUE OKF30400 | C COMPLETED CHECKING ALL ARCS OKF30401 LER=-MIN0(1,KE) OKF30402 | 99 IF (KE.EQ.0) GO TO 100 OKF30403 | K=IX(8) OKF30404 | CALL KILTER(IX(9)) OKF30405 | C RESTORE KC, KX, KU OKF30406 140 100 IF (KLE.NE.0) LER = -2 OKF30407 | I=1 OKF30408 | DO 101 J=1,N OKF30409 | IF (J.GE.IL(I+1)) I=I+1 OKF30410 | K=JA(J) OKF30411 KU(J)=KU(J)+LW(J) OKF30412 | KX(J)=KX(J)+LW(J) OKF30413 | KC(J)=KC(J)-NP(I)+NP(K) OKF30414 | 101 CONTINUE OKF30415 | RETURN OKF30416 16 KLE=1 OKF30417 | L=JA(K) OKF30418 | WRITE (KO,53) NN(I),NN(L) OKF30419 169 | GO TO 99 OKF30420 | 24 L=JA(K) OKF30421 WRITE (KO,54) NN(I),NN(L) OKF30422 175 | GO TO 100 OKF30423 | 51 FORMAT(7H **ARC A6,1X,A6,36H HAS LOWER BOUND GREATER THAN UPPER ) OKF30424 | 53 FORMAT(33H0JOB CUTOFF BY TIME LIMIT ON ARC A6,1X,A6) OKF30425 | 54 FORMAT(33H0OVERFLOW IN NODE PRICES ON ARC A6,1X,A6) OKF30426 90 FORMAT(7H *NODE A6,28H NON-CONSERVATIVE, NET FLOW=I12) OKF30427 | 91 FORMAT(22H *NO ARC ENDS AT NODE ,A6) OKF30428 | END OKF30429 | 1 12/01/64 PAGE 17 | 0| -| $IBFTC KILT OKF30430 | 1 12/01/64 PAGE 18 | KILT - EFN SOURCE STATEMENT - IFN(S) - 0| SUBROUTINE KILTER (I) OKF30431 | C BRING ARC K INTO KILTER OKF30432 | REAL NN,KA OKF30433 | COMMON NN( 500),NP( 500),IL( 501),JL( 501),IJ( 500),NL( 500), OKF30434 2 JI(1000),KC(1000),KU(1000),KX(1000),JA(1000),IB(1000),LW(1000), OKF30435 | 3 LC(8),KA(12,2),KQ(9),IX(9),M,N,LER,KAT,KOR,KTER,MINE,IFIN,KI,KO,KOKF30436 | 1 IF (IJ(1).EQ.0) GO TO 70 OKF30437 | IJ(1) = 0 OKF30438 | 2 DO 69 J=1,M OKF30439 69 NL(J)=0 OKF30440 | 70 LER=0 OKF30441 | 5 IF (KC(K)) 10,20,30 OKF30442 | 10 IF(KX(K)-KU(K)) 50,40,60 OKF30443 | 30 IF(KX(K)) 50,40,60 OKF30444 20 IF(KX(K).LT.0) GO TO 50 OKF30445 | IF (KX(K).GT.KU(K)) GO TO 60 OKF30446 | 40 RETURN OKF30447 | 50 KOR = JA(K) OKF30448 | KTER=I OKF30449 NL(KOR)=+K OKF30450 | GO TO 65 OKF30451 | 60 KOR=I OKF30452 | KTER = JA(K) OKF30453 | NL(KOR)=-K OKF30454 65 CALL LABEL (KBR) OKF30455 45 | IF (KBR.EQ.0) GO TO 68 OKF30456 | 67 CALL BREAKT OKF30457 51 | GO TO 5 OKF30458 | 68 CALL RAISE OKF30459 54 39 IF (LER) 40,5,40 OKF30460 | END OKF30461 | 1 12/01/64 PAGE 19 | | 0 -| $IBFTC LABL OKF30462 | 1 12/01/64 PAGE 20 | LABL - EFN SOURCE STATEMENT - IFN(S) - | 0 SUBROUTINE LABEL (KBR) OKF30463 | C LABEL NODES OKF30464 | REAL NN,KA OKF30465 | COMMON NN( 500),NP( 500),IL( 501),JL( 501),IJ( 500),NL( 500), OKF30466 | 2 JI(1000),KC(1000),KU(1000),KX(1000),JA(1000),IB(1000),LW(1000), OKF30467 3 LC(8),KA(12,2),KQ(9),IX(9),M,N,LER,KAT,KOR,KTER,MINE,IFIN,KI,KO,KOKF30468 | C OKF30469 | C JI FIRST NODE OF ARC IN SECOND NODE LIST OKF30470 | C KC COST OKF30471 | C KU UPPER BOUND OKF30472 C KX FLOW OKF30473 | C JA SECOND NODE OF ARC IN NORMAL ORDER OKF30474 | C IB ARC NUMBER OF ARC IN SECOND NODE LIST OKF30475 | C LW LOWER BOUND OKF30476 | C OKF30477 C NN NODE NAME OKF30478 | C NP NODE PRICE OKF30479 | C IL FIRST ARC OF GIVEN NODE IN LIST OF ARCS ARRANGED NORMALLY OKF30480 | C JL FIRST ARC OF GIVEN NODE IN LIST OF ARCS ARRANGED IN SECOND NODE ORDOKF30481 | C IJ SCAN LIST (CIRCLE LIST IN 'BREAKT') OKF30482 C NL NODE LABEL, SIGNED NUMBER OF ARC WHICH LABELED IT OKF30483 | C OKF30484 | C NUP CURRENT LENGTH OF SCAN LIST OKF30485 | C NU PRESENT LOCATION IN SCAN LIST OF NODE BEING SCANNED OKF30486 | C OKF30487 KBR = 0 OKF30488 | IF (IJ(1).EQ.0) NUP=1 OKF30489 | IJ(1)=KOR OKF30490 | NU = 1 OKF30491 | 14 I=IJ(NU) OKF30492 C SEARCH FORWARD ARCS OKF30493 | L2 = IL(I+1) OKF30494 | L = IL(I) OKF30495 | 16 IF (L2.LE.L) GO TO 28 OKF30496 | J = JA(L) OKF30497 IF (NL(J).NE.0) GO TO 27 OKF30498 | IF (KC(L).GT.0) GO TO 21 OKF30499 | IF (KX(L).GE.KU(L)) GO TO 27 OKF30500 | GO TO 22 OKF30501 | 21 IF (KX(L).GE.0) GO TO 27 OKF30502 22 NL(J) = L OKF30503 | NUP = NUP + 1 OKF30504 | IJ(NUP) = J OKF30505 | IF (J.EQ.KTER) GO TO 47 OKF30506 | 27 L = L+1 OKF30507 GO TO 16 OKF30508 | C SEARCH BACKWARD ARCS OKF30509 | 28 L2 = JL(I+1) OKF30510 | L = JL(I) OKF30511 | 31 IF (L2.LE.L) GO TO 43 OKF30512 J = JI(L) OKF30513 | IF (NL(J).NE.0) GO TO 42 OKF30514 | KR = IB(L) OKF30515 | IF (KC(KR).GE.0) GO TO 36 OKF30516 | IF (KX(KR).LE.KU(KR)) GO TO 42 OKF30517 1 12/01/64 PAGE 21 | LABL - EFN SOURCE STATEMENT - IFN(S) - | 0 GO TO 37 OKF30518 | 36 IF (KX(KR).LE.0) GO TO 42 OKF30519 | 37 NL(J) = -KR OKF30520 NUP = NUP + 1 OKF30521 | IJ(NUP) = J OKF30522 | IF (J.EQ.KTER) GO TO 47 OKF30523 | 42 L = L+1 OKF30524 | GO TO 31 OKF30525 C GO TO NEXT NODE IN SCAN LIST OKF30526 | 43 IF (NU.GE.NUP) GO TO 48 OKF30527 | NU = NU + 1 OKF30528 | GO TO 14 OKF30529 | C BREAK-THRU OKF30530 47 KBR = 1 OKF30531 | 48 LC(8) = LC(8) +NU OKF30532 | RETURN OKF30533 | END OKF30534 | 1 12/01/64 PAGE 22 | 0| -| $IBFTC BRKT OKF30535 | 1 12/01/64 PAGE 23 BRKT - EFN SOURCE STATEMENT - IFN(S) - | 0| SUBROUTINE BREAKT OKF30536 | C LABELS BROKE THROUGH, INCREMENT FLOW OKF30537 | REAL NN,KA OKF30538 COMMON NN( 500),NP( 500),IL( 501),JL( 501),IJ( 500),NL( 500), OKF30539 | 2 JI(1000),KC(1000),KU(1000),KX(1000),JA(1000),IB(1000),LW(1000), OKF30540 | 3 LC(8),KA(12,2),KQ(9),IX(9),M,N,LER,KAT,KOR,KTER,MINE,IFIN,KI,KO,KOKF30541 | LC(5) = LC(5) +1 OKF30542 | C FIND FLOW INCREMENT, SET UP CIRCLE LIST IN IJ OKF30543 MINE=IFIN OKF30544 | KT = KTER OKF30545 | DO 30 J =1,M OKF30546 | KP = NL(KT) OKF30547 | KK=IABS(KP) OKF30548 IF (KP.GT.0) GO TO 22 OKF30549 | KT=JA(KK) OKF30550 | IF (KC(KK).GE.0) GO TO 19 OKF30551 | MINE = MIN0(MINE,KX(KK)-KU(KK)) OKF30552 | GO TO 28 OKF30553 19 MINE = MIN0(MINE,KX(KK)) OKF30554 | GO TO 28 OKF30555 | 22 KRP=JL(KT) OKF30556 | DO 23 KR=KRP,N OKF30557 | IF (IB(KR).EQ.KK) GO TO 24 OKF30558 23 CONTINUE OKF30559 | 24 KT=JI(KR) OKF30560 | IF (KC(KK).GT.0) GO TO 26 OKF30561 | MINE = MIN0(MINE,KU(KK)-KX(KK)) OKF30562 | GO TO 28 OKF30563 26 MINE = MIN0(MINE,-KX(KK)) OKF30564 | 28 IJ(J) = KP OKF30565 | IF (KT.EQ.KTER) GO TO 40 OKF30566 | 30 CONTINUE OKF30567 | 40 JJ=J OKF30568 LC(7) = LC(7) + JJ OKF30569 | C INCREMENT CYCLE BY 'MINE'. OKF30570 | DO 43 J = 1,JJ OKF30571 | KK = IJ(J) OKF30572 | IF (KK.GT.0) GO TO 42 OKF30573 KK = IABS(KK) OKF30574 | KX(KK) = KX(KK) - MINE OKF30575 | GO TO 43 OKF30576 | 42 KX(KK) = KX(KK) + MINE OKF30577 | 43 CONTINUE OKF30578 DO 45 J=1,M OKF30579 | NL(J) = 0 OKF30580 | 45 CONTINUE OKF30581 | IJ(1) = 0 OKF30582 | RETURN OKF30583 END OKF30584 | 1 12/01/64 PAGE 24 | | 0| - $IBFTC RAIS OKF30585 | 1 12/01/64 PAGE 25 | RAIS - EFN SOURCE STATEMENT - IFN(S) - | 0| SUBROUTINE RAISE OKF30586 C RAISE NODE PRICES OF UNLABELED NODES RELATIVE TO LABELED OKF30587 | REAL NN,KA OKF30588 | COMMON NN( 500),NP( 500),IL( 501),JL( 501),IJ( 500),NL( 500), OKF30589 | 2 JI(1000),KC(1000),KU(1000),KX(1000),JA(1000),IB(1000),LW(1000), OKF30590 | 3 LC(8),KA(12,2),KQ(9),IX(9),M,N,LER,KAT,KOR,KTER,MINE,IFIN,KI,KO,KOKF30591 LC(6) = LC(6) + 1 OKF30592 | NDELTA = IFIN OKF30593 | I=1 OKF30594 | DO 24 L =1,N OKF30595 | IF (L.GE.IL(I+1)) I=I+1 OKF30596 J = JA(L) OKF30597 | IF (NL(I).EQ.0) GO TO 20 OKF30598 | IF (NL(J).NE.0) GO TO 24 OKF30599 | IF (KX(L).GE.KU(L)) GO TO 24 OKF30600 | GO TO 23 OKF30601 20 IF (NL(J).EQ.0) GO TO 24 OKF30602 | IF (KX(L).LE.0) GO TO 24 OKF30603 | 23 NDELTA = MIN0(NDELTA,IABS(KC(L))) OKF30604 | 24 CONTINUE OKF30605 | NDP = NDELTA OKF30606 IF (NDELTA.NE.IFIN) GO TO 31 OKF30607 | IF (KC(K).EQ.0.OR.ISIGN(1,NL(KOR)).EQ.ISIGN(1,KC(K))) GO TO 51 OKF30608 | NDELTA = IABS(KC(K)) OKF30609 | 31 I=1 OKF30610 | DO 47 L=1,N OKF30611 IF (L.GE.IL(I+1)) I=I+1 OKF30612 | J=JA(L) OKF30613 | IF (NL(I).NE.0) GO TO 41 OKF30614 | IF (NL(J).NE.0) KC(L)=KC(L)+NDELTA OKF30615 | GO TO 47 OKF30616 41 IF (NL(J).EQ.0) KC(L)=KC(L)-NDELTA OKF30617 | 47 CONTINUE OKF30618 | IF (NL(KAT).EQ.0) GO TO 50 OKF30619 | C REFERENCE NODE LABELED, ADD NDELTA TO UNLABELED NODES OKF30620 | DO 49 I=1,M OKF30621 IF (NL(I).EQ.0) NP(I)=NP(I)+NDELTA OKF30622 | 49 CONTINUE OKF30623 | GO TO 60 OKF30624 | 50 DO 55 I=1,M OKF30625 | IF (NL(I).NE.0) NP(I)=NP(I)-NDELTA OKF30626 55 CONTINUE OKF30627 | 60 CONTINUE OKF30628 | C TEST FOR OVERFLOW OF NODE PRICES HERE WHEN POSSIBLE OKF30629 | C SET LER = -3 IF NODE PRICES OVERFLOW OKF30630 | IF(NDP.EQ.NDELTA.OR.KX(K).EQ.0.OR.KX(K).EQ.KU(K)) RETURN OKF30631 51 LER = -1 OKF30632 | RETURN OKF30633 | END OKF30634 | 1 12/01/64 PAGE 26 | 0| -| $IBFTC CTOFF OKF30635 | 1 12/01/64 PAGE 27 | CTOFF - EFN SOURCE STATEMENT - IFN(S) - 0| SUBROUTINE CUTOFF(I) OKF30636 | C DUMMY CUTOFF ROUTINE OKF30637 | C SET I = 1 TO CUTOFF, SET I TO ANY OTHER NUMBER TO NOT CUTOFF OKF30638 | I=2 OKF30639 RETURN OKF30640 | END OKF30641 | 1 12/01/64 PAGE 28 | | 0 -| $IBFTC OUTPT OKF30642 | 1 12/01/64 PAGE 29 | OUTPT - EFN SOURCE STATEMENT - IFN(S) - | 0 SUBROUTINE OUTPUT (KZ) OKF30643 | C PROBLEM OUTPUT OKF30644 | REAL NN,KA OKF30645 | COMMON NN( 500),NP( 500),IL( 501),JL( 501),IJ( 500),NL( 500), OKF30646 | 2 JI(1000),KC(1000),KU(1000),KX(1000),JA(1000),IB(1000),LW(1000), OKF30647 3 LC(8),KA(12,2),KQ(9),IX(9),M,N,LER,KAT,KOR,KTER,MINE,IFIN,KI,KO,KOKF30648 | DOUBLE PRECISION A1,A2,A3 OKF30649 | DATA MNQ1/4HK /,MNQ2/4H /,MNQ3/4HN /,MNQ4/4HCUT /, OKF30650 | 2 MNQ5/4HCUT*/,MNQ6/4H* / OKF30651 | MZ=MNQ1 OKF30652 IF (LER.NE.0) MZ=MNQ2 OKF30653 | IF (KZ.NE.0) WRITE(KO,99) KZ OKF30654 5 | CALL CUTOFF(KFX) OKF30655 7 | IF(KFX.EQ.1.AND.LC(2).NE.0) LC(1)=1 OKF30656 | K2=KQ(2) OKF30657 IF (LC(3).EQ.0) GO TO 12 OKF30658 | PUNCH 90,(KA(I,2),I=1,12) OKF30659 14 | WRITE (KO,89) OKF30660 21 | 12 IF (LC(1).EQ.0) GO TO 41 OKF30661 | IF (KQ(6).NE.0) GO TO 24 OKF30662 KQ(6) =1 OKF30663 | REWIND K2 OKF30664 28 | 24 WRITE (K2,90)(KA(I,2),I=1,12) OKF30665 29 | WRITE (KO,88) OKF30666 36 | 41 A3=0. OKF30667 LINE=0 OKF30668 | I=1 OKF30669 | DO 3 J=1,N OKF30670 | IF (J.GE.IL(I+1)) I=I+1 OKF30671 | K=JA(J) OKF30672 MX=MZ OKF30673 | MY=MNQ2 OKF30674 | LLC=KC(J)+NP(I)-NP(K) OKF30675 | IF(KX(J).LT.LW(J).OR.KX(J).GT.KU(J).OR.KX(J).LT.KU(J).AND. OKF30676 | 2 LLC.LT.0.OR.KX(J).GT.LW(J).AND.LLC.GT.0) MX=MNQ3 OKF30677 A1=KC(J) OKF30678 | A2=KX(J) OKF30679 | A3=A3+A1*A2 OKF30680 | IF (KZ.EQ.0) GO TO 16 OKF30681 | IF(NL(I).NE.0.AND.NL(K).EQ.0) MY=MNQ5 OKF30682 IF(NL(I).EQ.0.AND.NL(K).NE.0) MY=MNQ4 OKF30683 | 16 IF (LC(1).EQ.0) GO TO 51 OKF30684 | WRITE (K2,93)NN(I),NN(K),KC(J),KU(J),LW(J),KX(J) OKF30685 80 | 51 IF (KQ(7).EQ.0) GO TO 56 OKF30686 | IF (LINE.EQ.0) WRITE (KO,91)(KA(II,2),II=1,12) OKF30687 90 LINE=LINE+1 OKF30688 | C PRINT 50 LINES/PAGE OKF30689 | IF (LINE.EQ.50) LINE=0 OKF30690 | WRITE (KO,94)NN(I),NN(K),KC(J),KU(J),LW(J),KX(J),LLC,MX,MY OKF30691 98 | 56 IF (LC(3).EQ.0) GO TO 3 OKF30692 PUNCH 93,NN(I),NN(K),KC(J),KU(J),LW(J),KX(J) OKF30693 107 | 3 CONTINUE OKF30694 | IF (KQ(7).NE.0) WRITE(KO,198) OKF30695 117 | IF (LC(1).NE.0) WRITE(K2,96) OKF30696 119 | IF (LC(3).NE.0) PUNCH 96 OKF30697 121 1 12/01/64 PAGE 30 | OUTPT - EFN SOURCE STATEMENT - IFN(S) - | 0 DO 200 I=1,M OKF30698 | MY=MNQ2 OKF30699 | IF (KZ.NE.0.AND.NL(I).NE.0) MY=MNQ6 OKF30700 IF (LC(1).NE.0) WRITE(K2,95) NN(I),NP(I) OKF30701 130 | IF (KQ(7).NE.0) WRITE(KO,199) NN(I),NP(I),MY OKF30702 134 | IF (LC(3).NE.0.AND.NP(I).NE.0) PUNCH 95,NN(I),NP(I) OKF30703 139 | 200 CONTINUE OKF30704 | IF(LC(1).NE.0) WRITE(K2,97) OKF30705 146 IF (KQ(7).NE.0) WRITE(KO,98) OKF30706 148 | IF (LC(3).NE.0) PUNCH 97 OKF30707 150 | WRITE (KO,92) LC(5),LC(6),LC(7),LC(8) OKF30708 151 | WRITE (KO,999) A3 OKF30709 152 | RETURN OKF30710 88 FORMAT(24H0THIS RUN OUTPUT TO TAPE ) OKF30711 | 89 FORMAT(25H0THIS RUN OUTPUT TO PUNCH) OKF30712 | 90 FORMAT(12A6/4HARCS22X,4HCOST5X,5HUPPER5X,5HLOWER6X,4HFLOW,12X) OKF30713 | 91 FORMAT(1H112A6/5H ARCS16X,4HCOST6X,5HUPPER6X,5HLOWER7X,4HFLOW7X, OKF30714 | 1 4HCBAR/1X) OKF30715 92 FORMAT(18H0NO OF BREAKTHRUS=I12,22H, NO OF NONBREAKTHRUS=I12,18H, OKF30716 | 1NO OF X CHANGES=I12,/42H NO OF NODES FROM WHICH LABELING WAS DONE=OKF30717 | 2I12) OKF30718 | 93 FORMAT(6X,2A6,2X,4I10) OKF30719 | 94 FORMAT(2(1X,A6),5I11,1X,2A4) OKF30720 95 FORMAT(6X,A6,6X,I12) OKF30721 | 96 FORMAT (6HNODES ,54X) OKF30722 | 97 FORMAT(3HEND,27X) OKF30723 | 98 FORMAT(4H0END) OKF30724 | 99 FORMAT(1H0I5,23H ARCS ARE OUT OF KILTER) OKF30725 198 FORMAT(12H1NODE PRICES/1X) OKF30726 | 199 FORMAT(1X,A6,I13,A4) OKF30727 | 999 FORMAT(16H0SUM OF PRODUCTS,1PD20.12) OKF30728 | END OKF30729 | 1 12/01/64 PAGE 31 | 0| -| $IBFTC NDNUM OKF30730 | 1 12/01/64 PAGE 32 NDNUM - EFN SOURCE STATEMENT - IFN(S) - | 0| FUNCTION NODENO(II) OKF30731 | C FIND NODE NUMBER OF NODE GIVEN OKF30732 | REAL NN,KA,II OKF30733 COMMON NN( 500),NP( 500),IL( 501),JL( 501),IJ( 500),NL( 500), OKF30734 | 2 JI(1000),KC(1000),KU(1000),KX(1000),JA(1000),IB(1000),LW(1000), OKF30735 | 3 LC(8),KA(12,2),KQ(9),IX(9),M,N,LER,KAT,KOR,KTER,MINE,IFIN,KI,KO,KOKF30736 | LOGICAL EQUAL OKF30737 | IF (M.EQ.0) GO TO 3 OKF30738 DO 1 I=1,M OKF30739 | IF (EQUAL(NN(I),II)) GO TO 2 OKF30740 9 | 1 CONTINUE OKF30741 | 3 NODENO=M+1 OKF30742 | RETURN OKF30743 2 NODENO=I OKF30744 | RETURN OKF30745 | END OKF30746 | 1 12/01/64 PAGE 33 | 0| -| $IBFTC LKUP OKF30747 | 1 12/01/64 PAGE 34 | LKUP - EFN SOURCE STATEMENT - IFN(S) - 0| FUNCTION LOOKUP(K) OKF30748 | C LOOK UP CONTROL NAME OKF30749 | LOGICAL EQUAL OKF30750 | REAL KEY,K OKF30751 DIMENSION KEY(19) OKF30752 | DATA KEY(1)/6HBEGIN /,KEY(2)/6HSAVE /,KEY(3)/6HREFNOD/, OKF30753 | 2 KEY(4)/6HTAPE /,KEY(5)/6HGO /,KEY(6)/6HSKIP /, OKF30754 | 3 KEY(7)/6HARCS /,KEY(8)/6HNODES /,KEY(9)/6HOUTPUT/, OKF30755 | 4 KEY(10)/6H TAPE /,KEY(11)/6H IF CU/,KEY(12)/6H PUNCH/, OKF30756 5 KEY(13)/6HSOLVE /,KEY(14)/6HGOGO /,KEY(15)/6HQUIT /, OKF30757 | 6 KEY(16)/6HEND /,KEY(17)/6H /,KEY(18)/6HALTER /, OKF30758 | 7 KEY(19)/6H NO SY/ OKF30759 | LOOKUP = 20 OKF30760 | DO 1 I = 1,19 OKF30761 IF(EQUAL(KEY(I),K))GO TO 2 OKF30762 7 | 1 CONTINUE OKF30763 | RETURN OKF30764 | 2 LOOKUP = I OKF30765 | RETURN OKF30766 END OKF30767 | 1 12/01/64 PAGE 35 | | 0| - $IBFTC EQ7000 OKF30782 | 1 12/01/64 PAGE 36 | EQ7000 - EFN SOURCE STATEMENT - IFN(S) - | 0| LOGICAL FUNCTION EQUAL(J,K) OKF30783 C IBM 7044 ROUTINE ONE FIXED POINT WORD HAS 6 CHARACTERS OKF30784 | EQUAL=.FALSE. OKF30785 | IF (J.EQ.K) EQUAL=.TRUE. OKF30786 | RETURN OKF30787 | END OKF30788 1 12/01/64 PAGE 37 | OKF3 STORAGE MAP | 0 MAIN PROGRAM | - COMMON VARIABLES | 0 COMMON BLOCK // ORIGIN 00001 LENGTH 23517 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NN 00000 R NP 00764 I IL 01750 I | JL 02735 I IJ 03722 I NL 04706 I | JI 05672 I KC 07642 I KU 11612 I | KX 13562 I JA 15532 I IB 17502 I LW 21452 I LC 23422 I KA 23432 R | KQ 23462 I IX 23473 I M 23504 I | N 23505 I LER 23506 I KAT 23507 I | KOR 23510 I KTER 23511 I MINE 23512 I | IFIN 23513 I KI 23514 I KO 23515 I K 23516 I | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | L 23520 I KS 23521 I KE 23522 I | - ENTRY POINTS 0 ...... SECTION 3 | - SUBROUTINES CALLED | 0 PRELIM SECTION 4 ARCRD SECTION 5 NODERD SECTION 6 | POSTRD SECTION 7 SOLVE SECTION 8 OUTPUT SECTION 9 | .FVIO. SECTION 10 .FWRD. SECTION 11 LOOKUP SECTION 12 .FRDD. SECTION 13 .FFIL. SECTION 14 .FCNV. SECTION 15 | .FRTN. SECTION 16 SYSLOC SECTION 17 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 100 5A 23603 101 6A 23605 1 23A 23636 200 12A 23616 88 37A 23703 3 21A 23633 | 87 36A 23666 199 33A 23661 59 FORMAT 23554 | 58 FORMAT 23545 89 39A 23721 51 FORMAT 23544 | | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 24000. 1 12/01/64 PAGE 38 | SUB1 STORAGE MAP | 0 SUBROUTINE PRELIM | - COMMON VARIABLES | 0 COMMON BLOCK // ORIGIN 00001 LENGTH 23517 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NN 00000 R NP 00764 I IL 01750 I | JL 02735 I IJ 03722 I NL 04706 I | JI 05672 I KC 07642 I KU 11612 I | KX 13562 I JA 15532 I IB 17502 I LW 21452 I LC 23422 I KA 23432 R | KQ 23462 I IX 23473 I M 23504 I | N 23505 I LER 23506 I KAT 23507 I | KOR 23510 I KTER 23511 I MINE 23512 I | IFIN 23513 I KI 23514 I KO 23515 I K 23516 I | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | KQ3 23520 I LL 23521 I K2 23522 I | - ENTRY POINTS 0 PRELIM SECTION 3 | - SUBROUTINES CALLED | 0 .FVIO. SECTION 4 .FWRD. SECTION 5 CUTOFF SECTION 6 | .FEFT. SECTION 7 EXIT SECTION 8 .FRDD. SECTION 9 | LOOKUP SECTION 10 .FRWT. SECTION 11 .FXEM. SECTION 12 .FFIL. SECTION 13 .FCNV. SECTION 14 .FRTN. SECTION 15 | SYSLOC SECTION 16 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 96 FORMAT 23544 20 37A 23752 11 11A 23621 97 FORMAT 23545 180 12A 23634 182 19A 23667 | 181 15A 23640 98 FORMAT 23552 183 20A 23702 | 99 FORMAT 23561 21 22A 23705 90 FORMAT 23540 | 91 FORMAT 23541 110 47A 24003 50 57A 24011 | 6 61A 24017 60 59A 24014 112 51A 24004 7 66A 24036 2 64A 24023 13 70A 24045 | 92 FORMAT 23543 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 24127.| 1 12/01/64 PAGE 39 | SUB2 STORAGE MAP 0 SUBROUTINE ARCRD | - COMMON VARIABLES | 0 COMMON BLOCK // ORIGIN 00001 LENGTH 23517 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NN 00000 R NP 00764 I IL 01750 I JL 02735 I IJ 03722 I NL 04706 I | JI 05672 I KC 07642 I KU 11612 I | KX 13562 I JA 15532 I IB 17502 I | LW 21452 I LC 23422 I KA 23432 R | KQ 23462 I IX 23473 I M 23504 I N 23505 I LER 23506 I KAT 23507 I | KOR 23510 I KTER 23511 I MINE 23512 I | IFIN 23513 I KI 23514 I KO 23515 I | K 23516 I | - UNDIMENSIONED PROGRAM VARIABLES 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | MM 23520 I I 23521 I NM 23522 I | J 23523 I KK 23524 I JJ 23525 I | - ENTRY POINTS | 0 ARCRD SECTION 3 - SUBROUTINES CALLED | 0 .FVIO. SECTION 4 .FRDD. SECTION 5 LOOKUP SECTION 6 | .FWRD. SECTION 7 NODENO SECTION 8 .FRTN. SECTION 9 | .FCNV. SECTION 10 .FFIL. SECTION 11 SYSLOC SECTION 12 | - EFN IFN CORRESPONDENCE 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 6 5A 23624 90 FORMAT 23563 1 31A 23675 | 2 30A 23673 3 54A 23760 4 140A 24252 | 99 39A 23731 94 FORMAT 23612 23 162A 24347 | 100 51A 23755 20 159A 24331 7 59A 23773 9 96A 24066 10 104A 24111 30 92A 24061 | 29 90A 24057 91 FORMAT 23566 101 112A 24147 | 102 131A 24233 92 FORMAT 23577 93 FORMAT 23606 | 89 FORMAT 23555 25 160A 24344 88 FORMAT 23544 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 24412.| 1 12/01/64 PAGE 40 | SUB3 STORAGE MAP | 0 SUBROUTINE NODERD | - COMMON VARIABLES 0 COMMON BLOCK // ORIGIN 00001 LENGTH 23517 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NN 00000 R NP 00764 I IL 01750 I | JL 02735 I IJ 03722 I NL 04706 I | JI 05672 I KC 07642 I KU 11612 I KX 13562 I JA 15532 I IB 17502 I | LW 21452 I LC 23422 I KA 23432 R | KQ 23462 I IX 23473 I M 23504 I | N 23505 I LER 23506 I KAT 23507 I | KOR 23510 I KTER 23511 I MINE 23512 I IFIN 23513 I KI 23514 I KO 23515 I | K 23516 I | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | I 23520 I KEYW 23521 I - ENTRY POINTS | 0 NODERD SECTION 3 | - SUBROUTINES CALLED | 0 .FVIO. SECTION 4 .FRDD. SECTION 5 LOOKUP SECTION 6 | NODENO SECTION 7 .FWRD. SECTION 8 .FRTN. SECTION 9 .FCNV. SECTION 10 .FFIL. SECTION 11 SYSLOC SECTION 12 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 3 2A 23560 90 FORMAT 23535 2 22A 23662 | 6 19A 23637 5 16A 23634 91 FORMAT 23537 10 20A 23654 92 FORMAT 23545 99 27A 23717 | | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 23736.| 1 12/01/64 PAGE 41 | SUB4 STORAGE MAP 0 SUBROUTINE POSTRD | - COMMON VARIABLES | 0 COMMON BLOCK // ORIGIN 00001 LENGTH 23517 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NN 00000 R NP 00764 I IL 01750 I JL 02735 I IJ 03722 I NL 04706 I | JI 05672 I KC 07642 I KU 11612 I | KX 13562 I JA 15532 I IB 17502 I | LW 21452 I LC 23422 I KA 23432 R | KQ 23462 I IX 23473 I M 23504 I N 23505 I LER 23506 I KAT 23507 I | KOR 23510 I KTER 23511 I MINE 23512 I | IFIN 23513 I KI 23514 I KO 23515 I | K 23516 I | - UNDIMENSIONED PROGRAM VARIABLES 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | L 23520 I N1 23521 I N2 23522 I | L1 23523 I L2 23524 I LL 23525 I | - ENTRY POINTS | 0 POSTRD SECTION 3 - SUBROUTINES CALLED | 0 .FVIO. SECTION 4 .FRDD. SECTION 5 LOOKUP SECTION 6 | .FWRD. SECTION 7 NODENO SECTION 8 .FRTN. SECTION 9 | .FCNV. SECTION 10 .FFIL. SECTION 11 SYSLOC SECTION 12 | - EFN IFN CORRESPONDENCE 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 19 6A 23613 20 9A 23620 95 FORMAT 23606 | 140 57A 24010 88 FORMAT 23554 121 43A 23757 | 111 37A 23725 300 112A 24163 200 121A 24223 | 93 FORMAT 23571 999 42A 23756 82 55A 24006 81 52A 24003 142 60A 24016 91 FORMAT 23556 | 145 82A 24107 144 80A 24066 92 FORMAT 23561 | 146 90A 24122 147 101A 24145 149 105A 24150 | 301 119A 24200 94 FORMAT 23600 87 FORMAT 23547 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 24274.| 1 12/01/64 PAGE 42 | SOLV STORAGE MAP | 0 SUBROUTINE SOLVE | - COMMON VARIABLES 0 COMMON BLOCK // ORIGIN 00001 LENGTH 23517 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NN 00000 R NP 00764 I IL 01750 I | JL 02735 I IJ 03722 I NL 04706 I | JI 05672 I KC 07642 I KU 11612 I KX 13562 I JA 15532 I IB 17502 I | LW 21452 I LC 23422 I KA 23432 R | KQ 23462 I IX 23473 I M 23504 I | N 23505 I LER 23506 I KAT 23507 I | KOR 23510 I KTER 23511 I MINE 23512 I IFIN 23513 I KI 23514 I KO 23515 I | K 23516 I | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | I 23520 I J 23521 I L 23522 I KLE 23523 I KFX 23524 I | - ENTRY POINTS | 0 SOLVE SECTION 3 | - SUBROUTINES CALLED | 0 .FVIO. SECTION 4 .FWRD. SECTION 5 CUTOFF SECTION 6 KILTER SECTION 7 .FFIL. SECTION 8 .FCNV. SECTION 9 | SYSLOC SECTION 10 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 8 6A 23613 10 16A 23632 20 34A 23676 23 27A 23670 91 FORMAT 23601 2 90A 24073 | 50 68A 24023 51 FORMAT 23537 5 104A 24133 | 90 FORMAT 23571 26 133A 24226 16 166A 24327 | 24 173A 24356 99 136A 24237 100 141A 24251 | 101 163A 24324 53 FORMAT 23551 54 FORMAT 23561 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 24432.| 1 12/01/64 PAGE 43 | KILT STORAGE MAP | 0 SUBROUTINE KILTER - COMMON VARIABLES | 0 COMMON BLOCK // ORIGIN 00001 LENGTH 23517 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NN 00000 R NP 00764 I IL 01750 I | JL 02735 I IJ 03722 I NL 04706 I JI 05672 I KC 07642 I KU 11612 I | KX 13562 I JA 15532 I IB 17502 I | LW 21452 I LC 23422 I KA 23432 R | KQ 23462 I IX 23473 I M 23504 I | N 23505 I LER 23506 I KAT 23507 I KOR 23510 I KTER 23511 I MINE 23512 I | IFIN 23513 I KI 23514 I KO 23515 I | K 23516 I | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE KBR 23520 I | - ENTRY POINTS | 0 KILTER SECTION 3 | - SUBROUTINES CALLED | 0 LABEL SECTION 4 BREAKT SECTION 5 RAISE SECTION 6 SYSLOC SECTION 7 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 1 1A 23526 70 12A 23542 2 4A 23533 | 69 8A 23537 5 13A 23543 10 16A 23547 20 23A 23562 30 20A 23555 50 33A 23577 | 40 32A 23576 60 39A 23610 65 44A 23620 | 68 53A 23634 67 50A 23630 39 55A 23637 | | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 23665. 1 12/01/64 PAGE 44 | LABL STORAGE MAP | 0 SUBROUTINE LABEL | - COMMON VARIABLES | 0 COMMON BLOCK // ORIGIN 00001 LENGTH 23517 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NN 00000 R NP 00764 I IL 01750 I | JL 02735 I IJ 03722 I NL 04706 I | JI 05672 I KC 07642 I KU 11612 I | KX 13562 I JA 15532 I IB 17502 I LW 21452 I LC 23422 I KA 23432 R | KQ 23462 I IX 23473 I M 23504 I | N 23505 I LER 23506 I KAT 23507 I | KOR 23510 I KTER 23511 I MINE 23512 I | IFIN 23513 I KI 23514 I KO 23515 I K 23516 I | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NUP 23520 I NU 23521 I I 23522 I | L2 23523 I L 23524 I J 23525 I KR 23526 I | - ENTRY POINTS | 0 LABEL SECTION 3 | - SUBROUTINES CALLED | 0 SYSLOC SECTION 4 - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 14 5A 23546 16 11A 23556 28 43A 23637 | 27 41A 23633 21 30A 23610 22 34A 23616 | 47 85A 23741 31 47A 23644 43 81A 23730 42 79A 23724 36 68A 23701 37 72A 23707 | 48 86A 23743 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 23772.| 1 12/01/64 PAGE 45 | BRKT STORAGE MAP 0 SUBROUTINE BREAKT | - COMMON VARIABLES | 0 COMMON BLOCK // ORIGIN 00001 LENGTH 23517 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NN 00000 R NP 00764 I IL 01750 I JL 02735 I IJ 03722 I NL 04706 I | JI 05672 I KC 07642 I KU 11612 I | KX 13562 I JA 15532 I IB 17502 I | LW 21452 I LC 23422 I KA 23432 R | KQ 23462 I IX 23473 I M 23504 I N 23505 I LER 23506 I KAT 23507 I | KOR 23510 I KTER 23511 I MINE 23512 I | IFIN 23513 I KI 23514 I KO 23515 I | K 23516 I | - UNDIMENSIONED PROGRAM VARIABLES 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | KT 23520 I J 23521 I KP 23522 I | KK 23523 I KRP 23524 I KR 23525 I | JJ 23526 I | - ENTRY POINTS 0 BREAKT SECTION 3 | - SUBROUTINES CALLED | 0 SYSLOC SECTION 4 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION 30 53A 23744 22 25A 23646 19 22A 23632 | 28 48A 23736 23 34A 23664 24 36A 23666 | 26 46A 23723 40 56A 23746 43 73A 24010 | 42 70A 24001 45 80A 24017 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 24043. 1 12/01/64 PAGE 46 | RAIS STORAGE MAP | 0 SUBROUTINE RAISE | - COMMON VARIABLES | 0 COMMON BLOCK // ORIGIN 00001 LENGTH 23517 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NN 00000 R NP 00764 I IL 01750 I | JL 02735 I IJ 03722 I NL 04706 I | JI 05672 I KC 07642 I KU 11612 I | KX 13562 I JA 15532 I IB 17502 I LW 21452 I LC 23422 I KA 23432 R | KQ 23462 I IX 23473 I M 23504 I | N 23505 I LER 23506 I KAT 23507 I | KOR 23510 I KTER 23511 I MINE 23512 I | IFIN 23513 I KI 23514 I KO 23515 I K 23516 I | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NDELTA 23520 I I 23521 I L 23522 I | J 23523 I NDP 23524 I - ENTRY POINTS | 0 RAISE SECTION 3 | - SUBROUTINES CALLED | 0 SYSLOC SECTION 4 | - EFN IFN CORRESPONDENCE 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 24 36A 23642 20 26A 23613 23 34A 23627 | 31 50A 23703 51 113A 24036 47 76A 23763 | 41 70A 23752 50 95A 24007 49 91A 24004 | 60 107A 24023 55 104A 24021 THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 24061.| 1 12/01/64 PAGE 47 | CTOFF STORAGE MAP | 0 SUBROUTINE CUTOFF | - ENTRY POINTS 0 CUTOFF SECTION 2 | - SUBROUTINES CALLED | 0 SYSLOC SECTION 3 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 00027.| 1 12/01/64 PAGE 48 | OUTPT STORAGE MAP | 0 SUBROUTINE OUTPUT - COMMON VARIABLES | 0 COMMON BLOCK // ORIGIN 00001 LENGTH 23517 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NN 00000 R NP 00764 I IL 01750 I | JL 02735 I IJ 03722 I NL 04706 I JI 05672 I KC 07642 I KU 11612 I | KX 13562 I JA 15532 I IB 17502 I | LW 21452 I LC 23422 I KA 23432 R | KQ 23462 I IX 23473 I M 23504 I | N 23505 I LER 23506 I KAT 23507 I KOR 23510 I KTER 23511 I MINE 23512 I | IFIN 23513 I KI 23514 I KO 23515 I | K 23516 I | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE A1 23520 D A2 23522 D A3 23524 D | MZ 23526 I MNQ1 23527 I MNQ2 23530 I | KFX 23531 I K2 23532 I I 23533 I | LINE 23534 I J 23535 I MX 23536 I | MY 23537 I LLC 23540 I MNQ3 23541 I MNQ5 23542 I MNQ4 23543 I MNQ6 23544 I | - ENTRY POINTS | 0 OUTPUT SECTION 3 | - SUBROUTINES CALLED | 0 .FVIO. SECTION 4 .FWRD. SECTION 5 CUTOFF SECTION 6 .FPUN. SECTION 7 .FRWT. SECTION 8 .FFIL. SECTION 9 | .FCNV. SECTION 10 E.1 SECTION 11 E.2 SECTION 12 | E.3 SECTION 13 E.4 SECTION 14 CC.1 SECTION 15 | CC.2 SECTION 16 CC.3 SECTION 17 CC.4 SECTION 18 | SYSLOC SECTION 19 - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 99 FORMAT 23665 12 22A 24005 90 FORMAT 23570 | 89 FORMAT 23563 41 37A 24063 24 29A 24030 | 88 FORMAT 23556 3 114A 24474 16 78A 24277 51 87A 24340 93 FORMAT 23644 56 105A 24441 | 91 FORMAT 23602 94 FORMAT 23647 198 FORMAT 23673 | 96 FORMAT 23656 200 143A 24645 95 FORMAT 23653 | 199 FORMAT 23677 97 FORMAT 23661 98 FORMAT 23663 | 1 12/01/64 PAGE 49 OUTPT STORAGE MAP | 092 FORMAT 23616 999 FORMAT 23702 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 25003.| 1 12/01/64 PAGE 50 | NDNUM STORAGE MAP 0 FUNCTION NODENO TYPE I | - COMMON VARIABLES | 0 COMMON BLOCK // ORIGIN 00001 LENGTH 23517 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | NN 00000 R NP 00764 I IL 01750 I JL 02735 I IJ 03722 I NL 04706 I | JI 05672 I KC 07642 I KU 11612 I | KX 13562 I JA 15532 I IB 17502 I | LW 21452 I LC 23422 I KA 23432 R | KQ 23462 I IX 23473 I M 23504 I N 23505 I LER 23506 I KAT 23507 I | KOR 23510 I KTER 23511 I MINE 23512 I | IFIN 23513 I KI 23514 I KO 23515 I | K 23516 I | - UNDIMENSIONED PROGRAM VARIABLES 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | F.0000 23520 I I 23521 I | - ENTRY POINTS | 0 NODENO SECTION 3 | - SUBROUTINES CALLED 0 EQUAL SECTION 4 SYSLOC SECTION 5 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 3 16A 23557 1 13A 23555 2 18A 23564 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 23610.| 1 12/01/64 PAGE 51 | LKUP STORAGE MAP | 0 FUNCTION LOOKUP TYPE I | - DIMENSIONED PROGRAM VARIABLES 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | KEY 00001 R | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | F.0000 00024 I I 00025 I - ENTRY POINTS | 0 LOOKUP SECTION 2 | - SUBROUTINES CALLED | 0 EQUAL SECTION 3 SYSLOC SECTION 4 | - EFN IFN CORRESPONDENCE 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 1 11A 00054 2 14A 00060 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 00104.| 1 12/01/64 PAGE 52 | EQ7000 STORAGE MAP 0 FUNCTION EQUAL TYPE L | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | F.0000 00001 L | - ENTRY POINTS 0 EQUAL SECTION 2 | - SUBROUTINES CALLED | 0 SYSLOC SECTION 3 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 00036.| 1 12/01/64 PAGE 53 | COMPILATION SUB3 | 0 DIAGNOSTIC MESSAGES - PHASE B DIAGNOSTIC MESSAGES | -1 SOURCE ERROR 44 LEVEL 1 - WARNING ONLY| THE STATEMENT WITH EFN 99 CANNOT BE REACHED. 1 12/01/64 PAGE 54 | | 0$ENTRY OKF3 OKF30789 | $DATA 1 IBLDR 12/01/64 PAGE 55 | * MEMORY MAP * | 0 | 0SYSTEM 00000 THRU 02717| FILE BLOCK ORIGIN 02720 FILES 1. UNIT01 | 2. UNIT02 | 3. UNIT03 | 4. UNIT04 | 5. UNIT05 6. UNIT06 | 7. UNIT07 | 8. UNIT08 | FILE LIST ORIGIN 03060| PRE-EXECUTION INITIALIZATION 03100 CALL ON OBJECT PROGRAM 03145| OBJECT PROGRAM 03152 THRU 25060| 0 DECK ORIGIN CONTROL SECTIONS (/NAME/=NON 0 LENGTH, (LOC)=DELETED, 'LOC'=MOVED, *=NOT REFERENCED)| | 1. OKF3 03152 /// /(54260) ...... 03421 * 2. SUB1 03433 /// /(54260) PRELIM 04015 | 3. SUB2 04043 /// /(54260) ARCRD 04715 | 4. SUB3 04736 /// /(54260) NODERD 05141 | 5. SUB4 05155 /// /(54260) POSTRD 05716 | 6. SOLV 05732 /// /(54260) SOLVE 06620 7. KILT 06645 /// /(54260) KILTER 06772 | 8. LABL 07013 /// /(54260) LABEL 07245 | 9. BRKT 07266 /// /(54260) BREAKT 07574 | 10. RAIS 07612 /// /(54260) RAISE 10136 | 11. CTOFF 10154 CUTOFF 10167 12. OUTPT 10203 /// /(54260) OUTPUT 11444 | 13. NDNUM 11467 /// /(54260) NODENO 11542 | 14. LKUP 11560 LOOKUP 11646 | 15. EQ7000 11664 EQUAL 11704 | 16. .IBSYS 00000 SYSLB1 00000 * SYSLB2 00001 * SYSLB3 00002 * SYSLB4 00003 * SYSCRD 00004 * SYSPRT 00005 * SYSPCH 00006 * SYSOU1 00007 SYSOU2 00010 * SYSIN1 00011 * | SYSIN2 00012 * SYSPP1 00013 * SYSPP2 00014 * SYSCK1 00015 * SYSCK2 00016 * | SYSUT1 00017 * SYSUT2 00020 * SYSUT3 00021 * SYSUT4 00022 * SYSUT5 00023 * | SYSUT6 00024 * SYSUT7 00025 * SYSUT8 00026 * SYSUT9 00027 * SYSTRA 00100 * | SYSDAT 00101 * SYSCUR 00102 * SYSRET 00103 SYSKEY 00104 * SYSSWS 00105 * SYSPOS 00106 * SYSUNI 00107 SYSUBC 00110 SYSUAV 00111 SYSUCW 00112 | SYSRPT 00113 * SYSCEM 00114 * SYSDMP 00115 SYSIOX 00116 * SYSIDR 00117 | SYSCOR 00120 * SYSLDR 00121 * SYSACC 00122 * SYSPID 00123 * SYSCYD 00124 * | SYSSLD 00126 * SYSTCH 00127 * SYSTWT 00131 SYSGET 00132 * SYSJOB 00133 | 17. .IOEX 00702 .ACTV 00702 .NDSEL 00704 * .MWR 00706 .PUNCH 00707 .ENBSW 00710 * .PAWS 00711 * .PAUSE 00712 * .STOP 00713 * .SYMUN 00714 * .DECVD 00715 | .DECVA 00716 * .CKWAT 00717 * .BCD5R 00720 .BCD5X 00721 * .CVPRT 00722 * | .STOPD 00723 .CHXAC 00724 * .URRX 00725 .RCTX 00726 * .RCHX 00727 | .TCOX 00730 * .TRCX 00731 * .ETTX 00732 * .TEFX 00733 * .TRAPX 00734 * | .TRAPS 00735 * .COMM 00736 * .LTPOS 00737 * .IOXSI 00740 * .CHPSW 00741 * .TRPSW 00742 * .FDAMT 00743 .SDCXI 00744 * .STCXI 00745 * .COMMD 00746 * | .IBCDZ 00747 * .CHXSP 00750 * | 18. .JBCON 02652 SYSLOC 02652 SYSFAZ 02653 * .JCOR 02654 * .JDATE 02655 .JLDAT 02656 * | .JTYPE 02660 .JLIN 02661 .JVER 02662 * SYSDSB 02663 * .IOEXD 02664 * | .FDPOS 02715 .JDTRK 02716 * SYSZRO 02717 * 19. .LXCON 11722 .LXSTR 11722 * .LXSTP 11725 .LXOUT 11773 .LXERR 12002 .LXCAL 12005 * | 1 IBLDR 12/01/64 PAGE 56 | * MEMORY MAP * | 0 .LXRTN 12005 IBEXIT 12005 * .DBCLS 12167 * .LXARG 12336 .L0 12361 * | .CLSE 12367 .LFBL 12370 * .LUNB 12371 .DFOUT 12372 20. .IODEF 12376 .DEFIN 12376 .ATTAC 12402 * .CLOSE 12404 .OPEN 12406 .READ 12410 | .WRITE 12412 .BSR 12422 * .READR 12432 .RELES 12434 * .LAREA 12445 | .LFBLK 12463 .LTSX 12466 * .RLHLD 12476 * .AREA1 12501 .LUNBL 12507 | .ENTRY 12513 .GOA 12550 .GO 12554 .DERR 12570 .NOPXI 12571 | .COMXI 12573 .EX34 12615 21. .LXSL 12622 .LXSEL 12622 .LXSL1 12623 .LXTST 12626 * .LXOVL 12666 * .LXMOD 12730 * | .LXIND 12754 * .LXDIS 12757 * .LXFLG 12760 * .LTCH 12761 | 22. .FPTRP 12767 .FFPT. 12767 * .FPOUT 13116 .FPARG 13124 /.COUNT/ 13126 * OVFLOW 13172 * | 23. .ERAS. 13177 E.1 13177 E.2 13200 E.3 13201 E.4 13202 | 24. .XCC. 13203 CC.1 13203 CC.2 13204 CC.3 13205 CC.4 13206 25. XIT 13207 EXIT 13207 .EXIT. 13207 * | 26. FXEM 13210 .FXEM. 13210 .FXOUT 13550 .FXARG 13556 /.OPTW./ 13632 * | 27. FOUT 13643 .FOUT. 13643 | 28. FCNV 14204 .FCON. 14204 .FCNV. 14225 .ENDFS 14233 .CNVSW 14236 .FDX1 14242 | .FDX2 14243 .DBC 14245 .DBC10 14403 .DBC20 14431 .DDSW 14447 .DDFIX 14453 .FIXSW 14454 .DDBC 14521 .DDRS1 14772 .DDRS2 14774 * | .D1 14777 .D2 15001 .FERR2 15066 * .ANPT 15122 .ONPT 15137 | .LNTP 15222 .AOUT 15271 .OOUT 15302 .LOUT 15331 .DFLT 15341 | .FLT 15606 .FXFL1 15737 .FXD 15743 .FXFL2 15746 .FXFL3 15752 | .INTG 15756 .TOPAC 15774 .WIDTH 16000 .FPACK 16005 .TEST 16006 .KOUNT 16041 .LIST 16044 .DONE 16052 .OUTBF 16543 .CHAR 16777 | .FBDBF 17013 .DDDFL 17045 .DDFLG 17046 .WORD 17047 .MQD 17050 | .PEX 17051 .FEXP 17052 .DIG 17053 .DEXPN 17054 | 29. FIOS 17106 .FIOS. 17106 .FSEL. 17246 .FILR. 17252 * .FRTB. 17261 * .FRTD. 17266 | .FILL. 17271 .FCLS 17273 * .FOPN 17277 * REOF 17303 * .TOUT. 17446 .REED 17454 * .BIN 17455 * .FCT 17456 * .FCKSZ 17460 * | 30. FIOH 17542 .FIOH. 17542 .FFIL. 20401 .FRTN. 20427 | 31. FWRD 20615 .FWRD. 20615 | 32. FRDD 20641 .FRDD. 20641 | 33. FPUN 20667 .FPUN. 20667 34. UN01 20716 .UN01. 20716 | 35. UN02 20717 .UN02. 20717 | 36. UN03 20720 .UN03. 20720 | 37. UN04 20721 .UN04. 20721 | 38. UN05 20722 .UN05. 20722 39. UN06 20723 .UN06. 20723 .BUFSZ 20724 | 40. UN07 20727 .UN07. 20727 | 41. UN08 20730 .UN08. 20730 | 42. FEFT 20731 .FEFT. 20731 | 43. FRWT 21031 .FRWT. 21031 44. FVIO 21136 .FVIO. 21136 | 45. .IOCS 21242 .L(0) 21242 .MONSW 21262 .TEOR 21331 .DEFI. 21411 .JOINX 21455 * | .CLOS. 21474 .ATTC. 21507 .SH1 21721 * .SH9 21763 * .OPEN. 22004 | .OP4 22032 * .OP7 22063 * .OP9.2 22077 * .RLSE. 22151 .RER2. 22151 | .READ. 22152 .RER1. 22175 .WRIT. 22177 .MNT1A 22367 * .EOFEX 22450 * .FEEIT 22520 .GTIOX 22541 .RW7 22657 * .RE7 23302 * .ENDTR 23743 | .SEL59 23745 * .BSR. 24364 .EOTOF 24511 .ETOF3 24517 * .SWITC 24546 | .TCHEX 25053 .BASIO 25056 * | 46. .IOCSM 25061 | 47. // 54260 0I/O BUFFERS 25061 THRU 54241| 0UNUSED CORE 54242 THRU 54257| 1 IBLDR 12/01/64 PAGE 57 | | 0 1 | 0BEGIN | 0 TEST PROBLEM | 0ARCS | REFNODVCTRVL | SOLVE | NO OF ARCS= 35 NO OF NODES= 22| 1 TEST PROBLEM | ARCS COST UPPER LOWER FLOW CBAR | | SM HOLLY 12 1 -0 1 -0 K SM LA 15 1 -0 -0 -0 K | SM SANFER 28 1 -0 -0 -0 K | LA GLENDL 5 1 -0 -0 4 K | LA PSDENA 9 1 -0 -0 -0 K | LA SO.FTN 52 1 -0 -0 -0 K | LA RIVERD 53 1 -0 -0 -0 K | HOLLY LA 4 1 -0 -0 1 K | HOLLY GLENDL 4 1 -0 1 -0 K HOLLY SANFER 22 1 -0 -0 6 K | GLENDL LACNDA 7 1 -0 1 -0 K | PSDENA LACNDA 6 1 -0 -0 7 K | PSDENA FONTNA 42 1 -0 -0 -0 K | SANFER HAROLD 36 1 -0 -0 11 K | SO.FTN FONTNA 3 1 -0 -0 4 K | SO.FTN COLTON 6 1 -0 -0 -0 K | FONTNA SANBER 7 1 -0 -0 -0 K FONTNA KEENBK 14 1 -0 -0 -0 K | RIVERD COLTON 7 1 -0 -0 2 K | COLTON SANBER 3 1 -0 -0 3 K | SANBER KEENBK 14 1 -0 -0 7 K | KEENBK CAJON 4 1 -0 -0 1 K | LACNDA MTLOWE 8 1 -0 1 -0 K | MTLOWE HAROLD 22 1 -0 -0 -0 K | MTLOWE WRTWD 44 1 -0 1 -0 K HAROLD LITRK 7 1 -0 -0 -0 K | HAROLD PALMDL 2 1 -0 -0 -0 K | WRTWD HESPRA 16 1 -0 1 -0 K | WRTWD CAJON 8 1 -0 -0 -0 K | CAJON HESPRA 12 1 -0 -0 4 K | HESPRA VCTRVL 9 1 -0 1 -0 K | PALMDL ADELTO 43 1 -0 -0 -0 K | ADELTO VCTRVL 8 1 -0 -0 6 K LITRK VCTRVL 44 1 -0 -0 4 K | VCTRVL SM 0 1 1 1 100 K | 1NODE PRICES | | SM -100 | LA -85 | HOLLY -88 | GLENDL -84 | PSDENA -76 | SANFER -72 | SO.FTN -33 | FONTNA -34 | RIVERD -32 | COLTON -27 | SANBER -27 | KEENBK -20 | LACNDA -77 | MTLOWE -69 | HAROLD -47 | WRTWD -25 CAJON -17 | HESPRA -9 | PALMDL -45 | ADELTO -2 | LITRK -40 | VCTRVL 0 | 0END | 0NO OF BREAKTHRUS= 1, NO OF NONBREAKTHRUS= 20, NO OF X CHANGES= 8 | NO OF NODES FROM WHICH LABELING WAS DONE= 236 | 0SUM OF PRODUCTS 1.000000000000D 02 | 1 | 0 TEST ALTER OPTION MAKE PROBLEM INFEASIBLE | 0SAVE | ALTER VCTRVLSM 1 0 10 10 -0 SOLVE | NO OF ARCS= 35 NO OF NODES= 22| 0 1 ARCS ARE OUT OF KILTER| 1 TEST ALTER OPTION MAKE PROBLEM INFEASIBLE | ARCS COST UPPER LOWER FLOW CBAR | | SM HOLLY 12 1 -0 1 -10 CUT* | SM LA 15 1 -0 1 -6 CUT* | SM SANFER 28 1 -0 1 -0 CUT* | LA GLENDL 5 1 -0 -0 -0 LA PSDENA 9 1 -0 1 -0 | LA SO.FTN 52 1 -0 -0 -0 | LA RIVERD 53 1 -0 -0 -0 | HOLLY LA 4 1 -0 -0 5 | HOLLY GLENDL 4 1 -0 1 -0 | HOLLY SANFER 22 1 -0 -0 16 | GLENDL LACNDA 7 1 -0 1 -1 | PSDENA LACNDA 6 1 -0 -0 2 PSDENA FONTNA 42 1 -0 1 -0 | SANFER HAROLD 36 1 -0 1 -0 | SO.FTN FONTNA 3 1 -0 -0 4 | SO.FTN COLTON 6 1 -0 -0 -0 | FONTNA SANBER 7 1 -0 -0 -0 | FONTNA KEENBK 14 1 -0 1 -0 | RIVERD COLTON 7 1 -0 -0 2 | COLTON SANBER 3 1 -0 -0 3 SANBER KEENBK 14 1 -0 -0 7 | KEENBK CAJON 4 1 -0 1 -0 | LACNDA MTLOWE 8 1 -0 1 -0 | MTLOWE HAROLD 22 1 -0 1 -0 | MTLOWE WRTWD 44 1 -0 -0 -0 | HAROLD LITRK 7 1 -0 1 -2 | HAROLD PALMDL 2 1 -0 1 -0 | WRTWD HESPRA 16 1 -0 -0 -0 WRTWD CAJON 8 1 -0 -0 4 | CAJON HESPRA 12 1 -0 1 -0 | HESPRA VCTRVL 9 1 -0 1 -6 | PALMDL ADELTO 43 1 -0 1 -0 | ADELTO VCTRVL 8 1 -0 1 -0 | LITRK VCTRVL 44 1 -0 1 -0 | VCTRVL SM 0 10 10 3 117 N CUT| 1NODE PRICES | SM -117* | LA -96 | HOLLY -95 | GLENDL -91 | PSDENA -87 | SANFER -89 | SO.FTN -44 | FONTNA -45 | RIVERD -43 | COLTON -38 | SANBER -38 | KEENBK -31 | LACNDA -83 | MTLOWE -75 | HAROLD -53 | WRTWD -31 | CAJON -27 | HESPRA -15 | PALMDL -51 | ADELTO -8 | LITRK -44 | VCTRVL 0 | 0END 0NO OF BREAKTHRUS= 2, NO OF NONBREAKTHRUS= 8, NO OF X CHANGES= 18 | NO OF NODES FROM WHICH LABELING WAS DONE= 104 | 0SUM OF PRODUCTS 3.260000000000D 02 | 1 | 0BEGIN | 0 THIS RUN PRINTS OUT ALL TYPE 1 2 AND 3 ERROR MESSAGES | 0ARCS | ***FIELD ERROR IN ARC NUMBER 1| CCCC DD -0 -0 -0 -0 | **SOURCE NODES NOT ADJACENT IN ARC AA GG | *NO ARC BEGINS AT NODE FF | *NO ARC BEGINS AT NODE GG | *NO ARC BEGINS AT NODE DD | *NO ARC BEGINS AT NODE OO | **FIELD ERROR IN NODE CARD NUMBER 1 | UUUU -0 | *NODE HH NOT IN ARCS | OUTPT | ***ILLEGAL CARD =OUTPT | ALTER 1 2 1 -0 -0 -0 -0 | ***ARC ON ABOVE ALTER CARD NOT DEFINED | SOLVE | NO OF ARCS= 4 NO OF NODES= 7| *NO ARC ENDS AT NODE AA | *NO ARC ENDS AT NODE SS *NO ARC ENDS AT NODE NN | **ARC AA DD HAS LOWER BOUND GREATER THAN UPPER | *NODE AA NON-CONSERVATIVE, NET FLOW= -3| *NODE DD NON-CONSERVATIVE, NET FLOW= 3| 0TYPE 3 ERROR, SKIP TO NEXT RUN| 1 | 0NO RESERVED TAPE HAS BEEN WRITTEN 1 1646 LINES OUTPUT. $IBSYS $STOP | 1 PERIPHERAL UNIT POSITIONS AT END OF JOBS | 1 SYSPP1 IS B2 REC. 00307, FILE 00000 SYSOU1 IS B1 REC. 00318, FILE 00000 SYSIN1 IS A2 REC. 00002, FILE 00001| 1 END OF JOBS | 1