| 1 $JOB TEST PLOT ROUTINES $EXECUTE IBJOB IBJOB VERSION 5 HAS CONTROL. | $IBJOB GO,FIOCS,LOGIC,MAP | $IBFTC PLOTXS REF 1 12/01/64 PAGE 1 | PLOTXS - EFN SOURCE STATEMENT - IFN(S) - | 0| SUBROUTINE PLOTXY(X,Y,K,P) | C COMMON/JOLO/N,F,DX,XYX,FORY,STUG,LABOUT,TONLY,KSW64,KPWR,KFD,TLINX | LOGICAL XYX,FORY,STUG,TONLY,XGL,LS | DIMENSION X(1),Y(1),P(1) | DIMENSION FLS(3),FLAB(4),FYLAB(4),YLABEL(11),A(104),ELS(3) | EQUIVALENCE (FLAB(3),IFLAB3),(FYLAB(3),IYLAB) DATA MASK1, MASK2,MASK4,MASK8,MASK16,MASK32,MASK64 / | 1 O1, O2, O4, O10, O20, O40, O100 / | DATA FYLAB(1),FYLAB(2),FYLAB3,FYLAB(4) / | 1 6H(2HP ,,6H20X,11 ,6H F10.0,1H) / | DATA BLANK,XGRID,YGRID /1H ,1H-,1H1 / DATA PCSTD/1H*/ | DATA RMARK/O726060606060/ | DATA FLS(1),FLS28,FLS264,FLS2B,FLS38,FLS3B / | 1 6H(2HP+,,4H12X,, 3H6X,,3HA6,,3HA6),6H2F6.3) / | DATA FLAB(1),FLAB(2),FLAB3,FLAB(4) / 1 6H(2HP+,,4H18X,,6H F9.0,1H) / | C | 100 WRITE (6,500) 1 | 500 FORMAT(2HPT) | 102 KODE=K N=P(1) | LABOUT=1 | FLAB(3) = FLAB3 | LS = .FALSE. | FYLAB(3)=FYLAB3 KSW8=0 | KSW64=0 | 110 PC=PCSTD | C | 112 IF((AND(KODE,MASK1)).GT.0.) PC = P(2) 114 M=10 | 116 IF((AND(KODE,MASK2)).GT.0.) M=P(3) | 117 IF (M.EQ.0) M=1000 | 118 NY=10 | 120 IF((AND(KODE,MASK4)).GT.0.) NY=P(4) 121 IF(NY.EQ.0) NY=1000 | 122 IF((AND(KODE,MASK64)).GT.0.) KSW64=2 | 124 IF((AND(KODE,MASK8)).GT.0.) KSW8=1 | C | 125 K864=KSW8+KSW64 126 IF(K864-2) 132,128,138 | 128 FLS(2)=FLS264 | 130 GO TO 139 | 132 FLS(2)=FLS28 | 134 FLS(3)=FLS38 136 GO TO 140 | 138 FLS(2)=FLS2B | 139 FLS(3)=FLS3B | C | 140 XYX=.FALSE. 142 FORY=.TRUE. | 144 STUG=.FALSE. | 146 TONLY=.FALSE. | 1 12/01/64 PAGE 2 | PLOTXS - EFN SOURCE STATEMENT - IFN(S) - 0C | 148 IF((AND(KODE,MASK32).LE.0.)) GO TO 172 | 151 STUG=.TRUE. | 152 KSY=P(9) | 154 PWR10Y=10.**(KSY-6) 51 156 FY=P(10)*PWR10Y | 158 F=FY | C | 160 IF(P(5).GE.2.) GO TO 172 | 162 TONLY=.TRUE. 164 DY=P(11)*PWR10Y | 166 DX=DY | 172 CALL PISTUG(Y) 61 | 173 IF(DX.EQ.0.) GO TO 700 | 174 FY=F 176 DY=DX | 180 IF(KSW64.EQ.2) KPWRY=KPWR | 190 IYLAB=IYLAB-KFD | C | 200 XYX=.TRUE. 202 FORY=.FALSE. | 204 STUG=.FALSE. | 206 TONLY=.FALSE. | 208 TLINX=55*(1+N/35) | C 210 IF((AND(KODE,MASK16).LE.0.)) GO TO 232 | 213 STUG=.TRUE. | 214 KSX=P(6) | 216 PWR10X=10.**(KSX-6) 82 | 218 FX=P(7)*PWR10X 220 F=FX | C | 222 IF(MOD(IFIX(P(5)),2).EQ.1) GO TO 232 | 224 TONLY=.TRUE. | 226 DX=P(8)*PWR10X 232 CALL PISTUG(X) 91 | IF(DX.EQ.0.) GO TO 700 | 234 FX=F | 240 IF(KSW64.EQ.2) KPWRX=KPWR | 248 IFLAB3=IFLAB3-KFD C | 250 IF(KSW64.EQ.0)GO TO 264 | 252 KOUTX=-KPWRX | 254 KOUTY=-KPWRY | 256 F10X=10.**KPWRX 107 258 F10Y=10.**KPWRY 109 | 260 WRITE (6,502) KOUTX,KOUTY 110 | 502 FORMAT(2HPT,7X, 3HX*E,I2,4H Y*E,I2) | C | 264 DO 278 I=1,11 266 TEMP = FY+FLOAT(I-1)*DY*10. | 268 ATEMP= ABS(TEMP) | 270 IF (ATEMP.LT.1.E-7) TEMP = 0. | 272 IF (ATEMP.GE.1.E+7)LABOUT=2 | 278 YLABEL(I)=TEMP 300 KSYLAB=1 | 1 12/01/64 PAGE 3 | PLOTXS - EFN SOURCE STATEMENT - IFN(S) - | 0 302 WRITE(6,FYLAB) (YLABEL(I),I=1,11) 128 | 304 GO TO (306,700),KSYLAB C | 306 KSYLAB=2 | 310 LCTR=0 | NCTR=1 | KOUT=1 KQUIT=1 | C | 320 IF(MOD(LCTR,M))328,322,328 | 322 AFILL=XGRID | 324 XGL=.TRUE. GO TO 330 | 328 XGL=.FALSE. | AFILL=BLANK | 330 DO 332 I=2,104 | 332 A(I)=AFILL 334 DO 336 I=2,104,NY | 336 A(I)=YGRID | A(I)=BLANK | 338 GO TO (340,400),KOUT | C 340 KX=(X(NCTR)-FX)/DX+.5 | 342 IF(KX-LCTR)630,350,600 | 350 KY=(Y(NCTR)-FY)/DY+.5 | 351 LS =.TRUE. | 352 TPC = PC 353 KYL = KY+2 | 354 IF(KY.LT.0) GO TO 360 | 356 IF(KY.GT.101)GO TO 364 | 358 GO TO 370 | 360 KYL=1 362 GO TO 366 | 364 KYL=104 | 366 TPC=RMARK | C | 370 A(KYL) =TPC 372 J=1 | 374 IF(KSW8.EQ.0) GO TO 380 | 376 ELS(J)=P(NCTR+11) | 378 J = J+1 | 380 IF(KSW64.EQ.0) GO TO 386 382 ELS(J)=X(NCTR)/F10X | 384 ELS(J+1)= Y(NCTR)/F10Y | C | 386 IF(NCTR.GE.N)GO TO 392 | 388 NCTR=NCTR+1 390 GO TO 340 | C | 392 KOUT=2 | 394 M =10 | C 400 IF(XGL.AND.(MOD(LCTR,10).EQ.0))KQUIT=2 | C | 600 WRITE (6,504)(A(I),I=1,104) 214 | 504 FORMAT(2HP ,26X,104A1) | 1 12/01/64 PAGE 4 PLOTXS - EFN SOURCE STATEMENT - IFN(S) - | 0 602 IF(K864.NE.0) GO TO 620 | C | 604 IF(MOD(LCTR,10))614,606,614 | 606 XLABEL=FX+FLOAT(LCTR)*DX 608 TEMP=ABS(XLABEL) | 610 IF(TEMP.GE.1.E+7)LABOUT=2 | 612 IF(TEMP.LT.1.E-7)XLABEL=0. | 613 WRITE(6,FLAB) XLABEL | C 234 614 LCTR = LCTR +1 | 616 GO TO (320,302),KQUIT | C | 620 IF(.NOT.LS) GO TO 604 | 622 LS = .FALSE. 624 WRITE(6,FLS)(ELS(I),I=1,K864) 241 | 626 GO TO 604 | 630 LABOUT = 4 | C | 700 GO TO (710,702,706,704),LABOUT 702 WRITE(6,506) 251 | 506 FORMAT(2HPL,3X,10HBAD LABELS) | GO TO 720 | C | 704 WRITE(6,520) NCTR 253 520 FORMAT(2HPL,18HX OUT OF ORDER. I=,I5) | 706 WRITE(6,508)(X(I),Y(I),I=1,2),K,P(I) 254 | 508 FORMAT(2HPL,5H N.G.,4F20.8,I6,F8.2) | 708 GO TO 720 | 710 WRITE(6,510) 264 510 FORMAT(2HPL) | 720 RETURN | END | 1 12/01/64 PAGE 5 | 0| -| $IBFTC PLOTMS REF | 1 12/01/64 PAGE 6 | PLOTMS - EFN SOURCE STATEMENT - IFN(S) - 0| SUBROUTINE PLOTMY(X,Y,K,P) | C | COMMON/JOLO/N,F,DX,XYX,FORY,STUG,LABOUT,TONLY,KSW64,KPWR,KFD,TLINX | LOGICAL XYX,FORY,STUG,TONLY,XGL,LS DIMENSION X(1),Y(1),P(1),K(1) | DIMENSION FLS(3),FLAB(4),FYLAB(4),YLABEL(11),A(104),ELS(3) | DIMENSION KPCSTD(6) | EQUIVALENCE (FLAB(3),IFLAB3),(FYLAB(3),IYLAB) | EQUIVALENCE (KPC,TPC) DATA MASK1, MASK2,MASK4,MASK8,MASK16,MASK32,MASK64 / | 1 01, 02, 04, 010, 020, 040, 0100 / | DATA FYLAB(1),FYLAB(2),FYLAB3,FYLAB(4) / | 1 6H(2HP ,,6H20X,11 ,6H F10.0,1H) / | DATA BLANK,XGRID,YGRID /1H ,1H-,1H1 / DATA RMARK/O726060606060/ | DATA (KPCSTD(I),I=1,6)/1H*,1H+,1H0,1HX,1H=,1HO/ | DATA FLS(1),FLS28,FLS264,FLS2B,FLS38,FLS3B / | 1 6H(2HP+,,4H12X,, 3H6X,,3HA6,,3HA6),6H2F6.3) / | DATA FLAB(1),FLAB(2),FLAB3,FLAB(4) / 1 6H(2HP+,,4H18X,,6H F9.0,1H) / | C | 100 WRITE(6,500) 1 | 102 KODE=K(1) | KN=K(2) NPTS=K(3) | LABOUT=1 | FLAB(3)=FLAB3 | LS=.FALSE. | FYLAB(3)=FYLAB3 KSW8=0 | KSW64=0 | KTL=1 | KSWI=1 | KSWII=1 11000 IF(P(1)-2.5) 11002,11002,11010 | 11002 KSWI=2 | 11004 KTL=KN | 11006 GO TO 11034 | 11010 IF(P(1)-4.0)11020,11020,11012 11012 NPTST=0 | 11014 DO 11016 I=1,KN | 11016 NPTST=NPTST+K(2*I+1) | 11017 TLINX=55*(1+NPTST/(35*KN)) | 11018 GO TO 112 11020 KSWII=2 | 11021 KTIMES=KN-1 | 11022 DO 11032 I=1,KTIMES | 11024 MM=I*NPTS | 11026 K(2*I+3)=NPTS 11028 DO 11032 II=1,NPTS | 11030 L=MM+II | 11032 Y(L)=Y(II) | 11034 NPTST=KN*NPTS | 11036 TLINX=55*(1+NPTS/35) 112 IF((AND(KODE,MASK1)).GT.0.)GO TO 114 | 1 12/01/64 PAGE 7 | PLOTMS - EFN SOURCE STATEMENT - IFN(S) - | 011112 DO 11113 I=1,KN | 11113 K(2*I+2)=KPCSTD(I) 114 M=10 | 116 IF((AND(KODE,MASK2)).GT.0.)M=P(3) | 117 IF (M.EQ.0)M=1000 | 118 NY=10 | 120 IF((AND(KODE,MASK4)).GT.0.)NY = P(4) 121 IF(NY.EQ.0) NY=1000 | 122 IF((AND(KODE,MASK64)).GT.0.)KSW64=2 | 124 IF((AND(KODE,MASK8)).GT.0.)KSW8=1 | C | 125 K864=KSW8+KSW64 126 IF(K864-2) 132,128,138 | 128 FLS(2)=FLS264 | 130 GO TO 139 | 132 FLS(2)=FLS28 | 134 FLS(3)=FLS38 136 GO TO 140 | 138 FLS(2)=FLS2B | 139 FLS(3)=FLS3B | C | 140 XYX=.FALSE. 142 FORY=.TRUE. | 144 STUG=.FALSE. | 146 TONLY=.FALSE. | C | 148 IF((AND(KODE,MASK32).LE.0.)) GO TO 172 151 STUG=.TRUE. | 152 KSY=P(9) | 154 PWR10Y=10.**(KSY-6) 103 | 156 FY =P(10)*PWR10Y | 158 F = FY C | 160 IF(P(5).GE.2.) GO TO 172 | 162 TONLY=.TRUE. | 164 DY = P(11)*PWR10Y | 166 DX = DY C | 172 N=NPTST | 11172 CALL PISTUG(Y) 114 | 173 IF(DX.EQ.0.) GO TO 700 | 174 FY=F 176 DY=DX | 190 IYLAB=IYLAB-KFD | C | 200 XYX=.FALSE. | 202 FORY=.FALSE. 204 STUG=.FALSE. | 206 TONLY=.FALSE. | C | 210 IF((AND(KODE,MASK16).LE.0.)) GO TO 232 | 213 STUG=.TRUE. 214 KSX=P(6) | 216 PWR10X=10.**(KSX-6) 131 | 218 FX =P(7)*PWR10X | 220 F=FX | 1 12/01/64 PAGE 8 PLOTMS - EFN SOURCE STATEMENT - IFN(S) - | 0C | 222 IF(MOD(IFIX(P(5)),2).EQ.1) GO TO 232 | 224 TONLY=.TRUE. | 226 DX =P(8)*PWR10X 232 IF(KSWI.EQ.2)N=NPTS | 11233 ILIM=N | 233 CALL PISTUG(X) 144 | IF(DX.EQ.0.) GO TO 700 | 234 FX=F 248 IFLAB3=IFLAB3-KFD | C | 250 IF(KSW64.EQ.0)GO TO 264 | 252 KOUTX=-KPWR | 256 F10X=10.**KPWR 156 260 WRITE (6,502) KOUTX | C 157 | 264 DO 278 I=1,11 | 266 TEMP = FY+FLOAT(I-1)*DY*10. | 268 ATEMP=ABS(TEMP) 270 IF (ATEMP.LT.1.E-7) TEMP = 0. | 272 IF (ATEMP.GE.1.E+7) LABOUT =2 | 278 YLABEL(I)=TEMP | 300 KSYLAB=1 | 302 WRITE (6,FYLAB) (YLABEL(I),I=1,11) 175 304 GO TO (306,700),KSYLAB | C | 306 KSYLAB = 2 | 310 LCTR=0 | NCTR=1 KOUT=1 | KQUIT=1 | C | 320 IF(MOD(LCTR,M))328,322,328 | 322 AFILL= XGRID 324 XGL=.TRUE. | GO TO 330 | 328 XGL=.FALSE. | AFILL=BLANK | 330 DO 332 I=2,104 332 A(I) = AFILL | 334 DO 336 I=2,104,NY | 336 A(I)= YGRID | A(I)= BLANK | 338 GO TO (340,400),KOUT C | 340 XMIN=1.E15 | 11340 IMIN=1 | 11342 DO 11350 I=1,ILIM | 11344 IF(XMIN-X(I))11350,11350,11346 11346 XMIN=X(I) | 11348 IMIN=I | 11350 CONTINUE | 341 KX =(X(IMIN)-FX)/DX+.5 | 342 IF(KX-LCTR)630,350,600 350 LS=.TRUE. | 11352 X(IMIN)=1.E15 | 1 12/01/64 PAGE 9 | PLOTMS - EFN SOURCE STATEMENT - IFN(S) - | 0 372 J=1 374 IF(KSW8.EQ.0) GO TO 380 | 376 ELS(J)=P(IMIN+11) | 378 J=J+1 | 380 IF(KSW64.EQ.0) GO TO 11400 | 00382 ELS(J)=XMIN/F10X 11400 DO 370 IM=1,KTL | 11402 LL=IMIN+(IM-1)*NPTS | 11404 KY=(Y(LL)-FY)/DY+.5 | 11420 IF(KSWI.EQ.2) GO TO 11440 | 11422 IK=0 KLAST=2*KN+1 | 11424 DO 11430 IL=3,KLAST,2 | 11426 IK=IK+K(IL) | 11428 IF(IK-IMIN) 11430,11436,11436 | 11430 CONTINUE 11432 LABOUT=5 | 11434 GO TO 700 | 11436 KPC=K(IL+1) | 11438 GO TO 353 | 11440 KPC=K(2*IM+2) 353 KYL=KY+2 | 354 IF(KY.LT.0) GO TO 360 | 356 IF(KT.GT.101) GO TO 364 | 358 GO TO 370 | 360 KYL=1 362 GO TO 366 | 364 KYL=104 | 366 TPC=RMARK | 370 A(KYL)=TPC | 386 IF(NCTR.GE.ILIM) GO TO 392 388 NCTR=NCTR+1 | 390 GO TO 340 | C | 392 KOUT=2 | 394 M=10 C | 400 IF(XGL.AND.(MOD(LCTR,10).EQ.0))KQUIT=2 | C | 600 WRITE(6,504)(A(I),I=1,104) 301 | 602 IF(K864.NE.0) GO TO 620 C | 604 IF(MOD(LCTR,10))614,606,614 | 606 XLABEL =FX+FLOAT(LCTR)*DX | 608 TEMP=ABS(XLABEL) | 610 IF(TEMP.GE.1.E+7)LABOUT=2 612 IF(TEMP.LT.1.E-7)XLABEL=0. | 613 WRITE(6,FLAB) XLABEL | C 321 | 614 LCTR=LCTR+1 | 616 GO TO (320,302),KQUIT C | 620 IF(.NOT.LS) GO TO 604 | 622 LS=.FALSE. | 623 KT=K864-1 | 624 WRITE(6,FLS)(ELS(I),I=1,KT) 329 1 12/01/64 PAGE 10 | PLOTMS - EFN SOURCE STATEMENT - IFN(S) - | 0 626 GO TO 604 | 630 LABOUT=4 | C 700 GO TO (710,702,706,704,712),LABOUT | 702 WRITE (6,506) 339 | GO TO 720 | C | 704 WRITE(6,520) NCTR 341 706 WRITE(6,508)(X(I),Y(I),I=1,2),K(1),K(2),K(3) 342 | 708 GO TO 720 | 712 WRITE(6,512) 351 | 710 WRITE(6,510) 352 | 720 RETURN 500 FORMAT(2HPT) | 502 FORMAT(2HPT,13X,3HX*E,I2) | 504 FORMAT(2HP ,26X,104A1) | 506 FORMAT(2HPL,3X,10HBAD LABELS ) | 508 FORMAT(2HPL,5H N.G.,4F20.8,3I7) 510 FORMAT(2HPL) | 512 FORMAT(2HPL,16HERROR IN K ARRAY ) | 520 FORMAT(2HPL,18HX OUT OF ORDER. I=,I5) | END | 1 12/01/64 PAGE 11 | 0| -| $IBFTC PISTUS REF | 1 12/01/64 PAGE 12 PISTUS - EFN SOURCE STATEMENT - IFN(S) - | 0| SUBROUTINE PISTUG(ARRAY) | DIMENSION ARRAY(1) | COMMON/JOLO/N,F,DX,XYX,FORY,STUG,LABOUT,TONLY,KSW64,KPWR,KFD,TLINX LOGICAL XYX,FORY,STUG,TONLY | 126 X1=ARRAY(1) | 128 IF(XYX) GO TO 133 | 130 DO 132 J =2,N | 132 X1 =AMIN1(X1,ARRAY(J)) C | 133 IF(STUG) X1=F | 134 XN = 0.0 | 136 DO 146 J = 1,N | 138 DIF = ABS(X1-ARRAY(J)) 140 IF(DIF.LE.XN) GO TO 146 | 142 XN=DIF | 144 IHOLD=J | 146 CONTINUE | 147 XN=ARRAY(IHOLD) C | 148 IF(KSW64.EQ.2) KPWR=KHAR(AMAX1(ABS(X1),ABS(XN))) 35 | 149 IF(TONLY) GO TO 240 | C | 150 TLIN=101. 152 IF(.NOT.FORY) TLIN=TLINX | 154 C5=(XN-X1)/TLIN | 156 C6=ABS(C5) | 158 IF(C6.EQ.0.) GO TO 300 | 159 K7 = KHAR(C6) 50 160 C8 = 10.**K7 52 | 162 C9 = C6/C8 | 164 IF((2.5-C9).LE.0.0) GO TO 172 | 166 D=2. | 168 IF((2.0-C9).LE.0.) D=2.5 170 GO TO 176 | 172 D=5. | 174 IF((5.-C9).LE.0.0) D=10. | 176 C11 = D*C8 | 178 DX=SIGN(C11,C5) 179 HUND=100.*DX | C | 240 K7=KHAR(ABS(DX)) 70 | 250 KFD=0 | 252 IF(K7) 260,270,254 254 IF(K7.GE.5) LABOUT=2 | 256 GO TO 270 | 260 KFD = 6 | 262 IF(K7.LT.(-7)) LABOUT=2 | 264 IF(K7.GT.(-6)) KFD=-K7 C | 270 IF(STUG) GO TO 230 | 182 KC12=INT(ABS(X1)/C11) | 184 JJ = 1 | 186 IF(X1) 188,192,190 188 JJ = 3 | 190 IF(DX.LT.0.) JJ = JJ +1 | 1 12/01/64 PAGE 13 | PISTUS - EFN SOURCE STATEMENT - IFN(S) - | 0 192 GO TO (193,194,195,196),JJ 193 KC14 = KC12 | GO TO 198 | 194 KC14 = KC12+1 | GO TO 198 | 195 KC14 = -KC12-1 GO TO 198 | 196 KC14 = -KC12 | 198 KC13 = MOD(KC12,10) | KC15 = KC12-KC13 | 199 KC18 = KC15 200 GO TO (212,202,202,210),JJ | 202 KC18 = KC18+10 | 204 IF(KC13.NE.9) GO TO 210 | 206 KC18 = KC14 | 208 GO TO 212 210 IF(X1.LT.0.)KC18=-KC18 | 212 F=C11*FLOAT(KC18) | 214 IF(.NOT.FORY) GO TO 230 | 220 TEMP = F+HUND | 222 GO TO (224,228,224,228),JJ 224 IF(TEMP.GE.XN) GO TO 230 | 226 GO TO 229 | 228 IF(TEMP.LE.XN) GO TO 230 | 229 F=C11*FLOAT(KC14) | 230 CONTINUE RETURN | 300 DX=0. | LABOUT=3 | GO TO 230 | END 1 12/01/64 PAGE 14 | | 0| -| $IBFTC KHARF REF 1 12/01/64 PAGE 15 | KHARF - EFN SOURCE STATEMENT - IFN(S) - | 0| FUNCTION KHAR(XMAX) | KHAR = INT(ALOG(XMAX)/2.302585+40.0)-40 2 RETURN | END | 1 12/01/64 PAGE 16 | | 0 -| $IBFTC SORTXS REF | 1 12/01/64 PAGE 17 | SORTXS - EFN SOURCE STATEMENT - IFN(S) - | 0 SUBROUTINE SORTXY(X,Y,NPTS) | DIMENSION X(1),Y(1) | 100 N=NPTS | 102 NN=N-1 | 104 DO 140 KT=1,NN XMIN=X(KT) | JAD=KT | JKL=KT+1 | 112 DO 120 JK=JKL,N | 114 IF (XMIN-X(JK)) 120,120,116 116 XMIN=X(JK) | 118 JAD=JK | 120 CONTINUE | 122 YMIN=Y(JAD) | X(JAD)=X(KT) Y(JAD)=Y(KT) | X(KT)=XMIN | Y(KT)=YMIN | 140 CONTINUE | RETURN END | 1 12/01/64 PAGE 18 | | 0| - $IBFTC SCALES REF | 1 12/01/64 PAGE 19 | SCALES - EFN SOURCE STATEMENT - IFN(S) - | 0| SUBROUTINE SCALE(NPTS,X,KRSTR) DIMENSION X(1) | 100 N=NPTS | 102 XMAX=X(1) | 104 DO 106 J=1,N | 106 XMAX=AMAX1(ABS(XMAX),ABS(X(J))) 116 IF((4-KHAR)*(KHAR+2))120,118,118 | 118 KPWR=0 | 119 GO TO 130 | 120 KPWR=3-KHAR | 122 FACT=10.**KPWR 17 126 DO 128 J=1,N | 128 X(J)=X(J)*FACT | 130 KRSTR=KPWR | 140 RETURN | END 1 12/01/64 PAGE 20 | | 0| -| $IBFTC MAINP REF 1 12/01/64 PAGE 21 | MAINP - EFN SOURCE STATEMENT - IFN(S) - | 0| DIMENSION V(7),W(7),P(1) | C V(1)=0.34 | V(2)=1.45 | V(3)=2.3 | V(4)=0.72 | V(5)=1.12 V(6)=0.43 | V(7)=1.01 | C | W(1)=2.1 | W(2)=1.09 W(3)=0.45 | W(4)=2.2 | W(5)=1.1 | W(6)=0.22 | W(7)=0.37 C | P(1)=7.0 | P(3)=20.0 | C | CALL SORTXY(W,V,7) 2 CALL PLOTXY(W,V,69,P) | C 4 | STOP | END | 1 12/01/64 PAGE 22 PLOTXS STORAGE MAP | 0 SUBROUTINE PLOTXY | - COMMON VARIABLES | 0 COMMON BLOCK JOLO ORIGIN 00001 LENGTH 00014 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE N 00000 I F 00001 R DX 00002 R | XYX 00003 L FORY 00004 L STUG 00005 L | LABOUT 00006 I TONLY 00007 L KSW64 00010 I | KPWR 00011 I KFD 00012 I TLINX 00013 R | - DIMENSIONED PROGRAM VARIABLES 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | FLS 00025 R FLAB 00015 R FYLAB 00021 R | YLABEL 00030 R A 00043 R ELS 00213 R | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE XGL 00216 L LS 00217 L IFLAB3 00017 I | IYLAB 00023 I KODE 00220 I FLAB3 00221 R | FYLAB3 00222 R KSW8 00223 I PC 00224 R | PCSTD 00225 R MASK1 00226 I M 00227 I | MASK2 00230 I NY 00231 I MASK4 00232 I MASK64 00233 I MASK8 00234 I K864 00235 I | FLS264 00236 R FLS28 00237 R FLS38 00240 R | FLS2B 00241 R FLS3B 00242 R MASK32 00243 I | KSY 00244 I PWR10Y 00245 R FY 00246 R | DY 00247 R KPWRY 00250 I MASK16 00251 I KSX 00252 I PWR10X 00253 R FX 00254 R | KPWRX 00255 I KOUTX 00256 I KOUTY 00257 I | F10X 00260 R F10Y 00261 R I 00262 I | TEMP 00263 R ATEMP 00264 R KSYLAB 00265 I | LCTR 00266 I NCTR 00267 I KOUT 00270 I KQUIT 00271 I AFILL 00272 R XGRID 00273 R | BLANK 00274 R YGRID 00275 R KX 00276 I | KY 00277 I TPC 00300 R KYL 00301 I | RMARK 00302 R J 00303 I XLABEL 00304 R | - ENTRY POINTS 0 PLOTXY SECTION 3 | - SUBROUTINES CALLED | 0 .FWRD. SECTION 4 .XP2. SECTION 5 PISTUG SECTION 6 | .FXEM. SECTION 7 .UN06. 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 | 1 12/01/64 PAGE 23 | PLOTXS STORAGE MAP | 0 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 | 100 1A 00364 500 FORMAT 00333 102 2A 00372 | 110 7A 00412 112 8A 00414 114 11A 00427 | 116 12A 00431 117 15A 00447 118 18A 00454 120 19A 00456 121 22A 00474 122 25A 00501 | 124 28A 00514 125 31A 00527 126 32A 00532 | 132 36A 00542 128 34A 00537 138 39A 00547 | 130 35A 00541 139 40A 00551 134 37A 00544 | 136 38A 00546 140 41A 00553 142 42A 00554 144 43A 00556 146 44A 00557 148 45A 00560 | 172 60A 00633 151 48A 00572 152 49A 00574 | 154 50A 00601 156 52A 00612 158 53A 00615 | 160 54A 00617 162 57A 00624 164 58A 00626 | 166 59A 00631 173 62A 00637 700 250A 01501 174 65A 00643 176 66A 00645 180 67A 00647 | 190 70A 00654 200 71A 00657 202 72A 00661 | 204 73A 00662 206 74A 00663 208 75A 00664 | 210 76A 00704 232 90A 00764 213 79A 00716 | 214 80A 00720 216 81A 00725 218 83A 00736 220 84A 00741 222 85A 00743 224 88A 00757 | 226 89A 00761 234 96A 00774 240 97A 00776 | 248 100A 01003 250 101A 01006 264 111A 01044 | 252 104A 01012 254 105A 01014 256 106A 01016 | 258 108A 01024 260 110A 01032 502 FORMAT 00334 278 123A 01107 266 115A 01051 268 116A 01071 | 270 117A 01074 272 120A 01101 300 127A 01113 | 302 128A 01115 304 135A 01130 306 136A 01137 | 310 137A 01141 320 141A 01150 328 146A 01161 | 322 143A 01154 324 144A 01156 330 147A 01164 332 151A 01165 334 155A 01171 336 159A 01174 | 338 164A 01203 340 165A 01212 400 211A 01345 | 342 167A 01224 630 249A 01477 350 169A 01231 | 600 214A 01356 351 171A 01243 352 172A 01245 | 353 173A 01247 354 174A 01252 360 181A 01265 356 177A 01257 364 183A 01270 358 180A 01264 | 370 185A 01274 362 182A 01267 366 184A 01272 | 372 187A 01277 374 188A 01301 380 195A 01314 | 376 191A 01307 378 194A 01311 386 204A 01330 | 382 198A 01322 384 201A 01325 392 209A 01341 388 207A 01335 390 208A 01340 394 210A 01343 | 504 FORMAT 00341 602 221A 01371 620 237A 01454 | 604 224A 01375 614 235A 01442 606 226A 01401 | 608 227A 01414 610 228A 01417 612 231A 01425 | 613 234A 01432 616 236A 01445 622 240A 01457 624 241A 01460 626 248A 01476 710 264A 01554 | 702 251A 01512 706 254A 01531 704 253A 01521 | 506 FORMAT 00344 720 265A 01562 520 FORMAT 00350 | 508 FORMAT 00356 708 263A 01553 510 FORMAT 00363 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 01664.| 1 12/01/64 PAGE 24 | PLOTMS STORAGE MAP | 0 SUBROUTINE PLOTMY | - COMMON VARIABLES 0 COMMON BLOCK JOLO ORIGIN 00001 LENGTH 00014 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | N 00000 I F 00001 R DX 00002 R | XYX 00003 L FORY 00004 L STUG 00005 L | LABOUT 00006 I TONLY 00007 L KSW64 00010 I KPWR 00011 I KFD 00012 I TLINX 00013 R | - DIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | FLS 00026 R FLAB 00015 R FYLAB 00021 R | YLABEL 00031 R A 00044 R ELS 00214 R KPCSTD 00217 I | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | XGL 00225 L LS 00226 L IFLAB3 00017 I | IYLAB 00023 I KPC 00025 I TPC 00025 R KODE 00227 I KN 00230 I NPTS 00231 I | FLAB3 00232 R FYLAB3 00233 R KSW8 00234 I | KTL 00235 I KSWI 00236 I KSWII 00237 I | NPTST 00240 I I 00241 I KTIMES 00242 I | MM 00243 I II 00244 I L 00245 I MASK1 00246 I M 00247 I MASK2 00250 I | NY 00251 I MASK4 00252 I MASK64 00253 I | MASK8 00254 I K864 00255 I FLS264 00256 R | FLS28 00257 R FLS38 00260 R FLS2B 00261 R | FLS3B 00262 R MASK32 00263 I KSY 00264 I PWR10Y 00265 R FY 00266 R DY 00267 R | MASK16 00270 I KSX 00271 I PWR10X 00272 R | FX 00273 R ILIM 00274 I KOUTX 00275 I | F10X 00276 R TEMP 00277 R ATEMP 00300 R | KSYLAB 00301 I LCTR 00302 I NCTR 00303 I KOUT 00304 I KQUIT 00305 I AFILL 00306 R | XGRID 00307 R BLANK 00310 R YGRID 00311 R | XMIN 00312 R IMIN 00313 I KX 00314 I | J 00315 I IM 00316 I LL 00317 I | KY 00320 I IK 00321 I KLAST 00322 I IL 00323 I KYL 00324 I KT 00325 I | RMARK 00326 R XLABEL 00327 R | - ENTRY POINTS | 0 PLOTMY SECTION 3 | 1 12/01/64 PAGE 25 PLOTMS STORAGE MAP | 0 SUBROUTINES CALLED | 0 .FWRD. SECTION 4 .XP2. SECTION 5 PISTUG SECTION 6 | .FXEM. SECTION 7 .UN06. 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 100 1A 00421 500 FORMAT 00362 102 2A 00427 | 11000 11A 00454 11002 13A 00460 11010 16A 00465 | 11004 14A 00462 11006 15A 00464 11034 49A 00602 | 11020 30A 00531 11012 18A 00471 11014 19A 00472 | 11016 23A 00477 11017 28A 00505 11018 29A 00530 112 51A 00625 11021 31A 00533 11022 32A 00536 | 11032 43A 00567 11024 36A 00552 11026 37A 00555 | 11028 39A 00557 11030 42A 00564 11036 50A 00605 | 114 63A 00651 11112 54A 00637 11113 58A 00644 | 116 64A 00653 117 67A 00671 118 70A 00676 120 71A 00700 121 74A 00716 122 77A 00723 | 124 80A 00736 125 83A 00751 126 84A 00754 | 132 88A 00764 128 86A 00761 138 91A 00771 | 130 87A 00763 139 92A 00773 134 89A 00766 | 136 90A 00770 140 93A 00775 142 94A 00776 144 95A 01000 146 96A 01001 148 97A 01002 | 172 112A 01055 151 100A 01014 152 101A 01016 | 154 102A 01023 156 104A 01034 158 105A 01037 | 160 106A 01041 162 109A 01046 164 110A 01050 | 166 111A 01053 11172 113A 01057 173 115A 01063 700 338A 02013 174 118A 01067 176 119A 01071 | 190 120A 01073 200 121A 01076 202 122A 01077 | 204 123A 01100 206 124A 01101 210 125A 01102 | 232 139A 01162 213 128A 01114 214 129A 01116 | 216 130A 01123 218 132A 01134 220 133A 01137 222 134A 01141 224 137A 01155 226 138A 01157 | 11233 142A 01167 233 143A 01171 234 149A 01201 | 248 150A 01203 250 151A 01206 264 158A 01232 | 252 154A 01212 256 155A 01214 260 157A 01222 | 502 FORMAT 00363 278 170A 01275 266 162A 01237 268 163A 01257 270 164A 01262 272 167A 01267 | 300 174A 01301 302 175A 01303 304 182A 01316 | 306 183A 01325 310 184A 01327 320 188A 01336 | 328 193A 01347 322 190A 01342 324 191A 01344 | 330 194A 01352 332 198A 01353 334 202A 01357 336 206A 01362 338 211A 01371 340 212A 01400 | 400 298A 01654 11340 213A 01402 11342 214A 01404 | 11350 224A 01424 11344 218A 01414 11346 221A 01420 | 11348 223A 01422 341 227A 01427 342 229A 01440 | 630 337A 02011 350 231A 01445 600 301A 01665 11352 232A 01450 372 234A 01452 374 235A 01454 | 380 242A 01467 376 238A 01462 378 241A 01464 | 11400 247A 01477 382 245A 01474 370 287A 01627 | 1 12/01/64 PAGE 26 | PLOTMS STORAGE MAP 011402 251A 01510 11404 252A 01517 11420 254A 01533 | 11440 273A 01600 11422 257A 01537 11424 259A 01545 | 11430 266A 01564 11426 262A 01555 11428 264A 01560 | 11436 270A 01572 11432 268A 01567 11434 269A 01571 | 11438 272A 01577 353 275A 01602 354 276A 01605 360 283A 01620 356 279A 01612 364 285A 01623 | 358 282A 01617 362 284A 01622 366 286A 01625 | 386 291A 01637 392 296A 01650 388 294A 01644 | 390 295A 01647 394 297A 01652 504 FORMAT 00367 | 602 308A 01700 620 324A 01763 604 311A 01704 614 322A 01751 606 313A 01710 608 314A 01723 | 610 315A 01726 612 318A 01734 613 321A 01741 | 616 323A 01754 622 327A 01766 623 328A 01767 | 624 329A 01772 626 336A 02010 710 352A 02076 | 702 339A 02025 706 342A 02044 704 341A 02034 712 351A 02070 506 FORMAT 00372 720 353A 02104 | 520 FORMAT 00413 508 FORMAT 00377 708 350A 02067 | 512 FORMAT 00405 510 FORMAT 00404 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 02226.| 1 12/01/64 PAGE 27 PISTUS STORAGE MAP | 0 SUBROUTINE PISTUG | - COMMON VARIABLES | 0 COMMON BLOCK JOLO ORIGIN 00001 LENGTH 00014 | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE N 00000 I F 00001 R DX 00002 R | XYX 00003 L FORY 00004 L STUG 00005 L | LABOUT 00006 I TONLY 00007 L KSW64 00010 I | KPWR 00011 I KFD 00012 I TLINX 00013 R | - UNDIMENSIONED PROGRAM VARIABLES 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | X1 00015 R J 00016 I XN 00017 R | DIF 00020 R IHOLD 00021 I TLIN 00022 R | C5 00023 R C6 00024 R K7 00025 I | C8 00026 R C9 00027 R D 00030 R C11 00031 R HUND 00032 R KC12 00033 I | JJ 00034 I KC14 00035 I KC13 00036 I | KC15 00037 I KC18 00040 I TEMP 00041 R | - ENTRY POINTS | 0 PISTUG SECTION 3 - SUBROUTINES CALLED | 0 KHAR SECTION 4 .XP2. SECTION 5 .FXEM. SECTION 6 | E.1 SECTION 7 E.2 SECTION 8 E.3 SECTION 9 | E.4 SECTION 10 CC.1 SECTION 11 CC.2 SECTION 12 | CC.3 SECTION 13 CC.4 SECTION 14 SYSLOC SECTION 15 - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 126 1A 00070 128 2A 00072 133 13A 00113 | 130 5A 00075 132 9A 00101 134 16A 00117 | 136 17A 00120 146 28A 00147 138 21A 00130 140 23A 00136 142 26A 00143 144 27A 00145 | 147 31A 00152 148 33A 00154 149 37A 00177 | 240 69A 00304 150 40A 00202 152 41A 00204 | 154 44A 00210 156 45A 00214 158 46A 00217 | 300 132A 00547 159 49A 00223 160 51A 00230 162 53A 00236 164 54A 00241 172 62A 00261 | 166 57A 00247 168 58A 00251 170 61A 00260 | 176 66A 00272 174 63A 00263 178 67A 00275 | 179 68A 00301 250 71A 00314 252 72A 00315 | 260 78A 00327 270 85A 00345 254 74A 00320 256 77A 00326 262 79A 00331 264 82A 00337 | 1 12/01/64 PAGE 28 | PISTUS STORAGE MAP | 0230 131A 00546 182 88A 00350 184 89A 00362 | 186 90A 00364 188 92A 00367 192 96A 00400 190 93A 00371 193 97A 00411 194 99A 00414 | 195 101A 00420 196 103A 00424 198 104A 00426 | 199 106A 00435 200 107A 00437 212 117A 00470 | 202 108A 00450 210 114A 00462 204 109A 00453 | 206 112A 00457 208 113A 00461 214 118A 00502 220 121A 00505 222 122A 00510 224 123A 00521 | 228 127A 00527 226 126A 00526 229 130A 00534 | | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 00605.| 1 12/01/64 PAGE 29 KHARF STORAGE MAP | 0 FUNCTION KHAR TYPE I | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | F.0000 00001 I - ENTRY POINTS | 0 KHAR SECTION 2 | - SUBROUTINES CALLED | 0 ALOG SECTION 3 CC.1 SECTION 4 CC.2 SECTION 5 | CC.3 SECTION 6 CC.4 SECTION 7 SYSLOC SECTION 8 - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 00051.| 1 12/01/64 PAGE 30 SORTXS STORAGE MAP | 0 SUBROUTINE SORTXY | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | N 00001 I NN 00002 I KT 00003 I XMIN 00004 R JAD 00005 I JKL 00006 I | JK 00007 I YMIN 00010 R | - ENTRY POINTS | 0 SORTXY SECTION 2 | - SUBROUTINES CALLED 0 SYSLOC SECTION 3 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 100 1A 00015 102 2A 00017 104 3A 00022 | 140 28A 00104 112 9A 00044 120 18A 00061 114 12A 00051 116 15A 00055 118 17A 00057 | 122 20A 00063 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 00150.| 1 12/01/64 PAGE 31 | SCALES STORAGE MAP 0 SUBROUTINE SCALE | - UNDIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | N 00001 I XMAX 00002 R KHAR 00003 I | KPWR 00004 I FACT 00005 R - ENTRY POINTS | 0 SCALE SECTION 2 | - SUBROUTINES CALLED | 0 .XP2. SECTION 3 SYSLOC SECTION 4 | - EFN IFN CORRESPONDENCE 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | 100 1A 00022 102 2A 00024 104 3A 00026 | 106 7A 00032 116 11A 00051 120 15A 00065 | 118 13A 00063 119 14A 00064 130 27A 00107 | 122 16A 00070 126 18A 00076 128 22A 00102 140 28A 00111 | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 00143.| 1 12/01/64 PAGE 32 | MAINP STORAGE MAP | 0 MAIN PROGRAM - DIMENSIONED PROGRAM VARIABLES | 0SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE | V 00001 R W 00010 R P 00017 R | - ENTRY POINTS | 0 ...... SECTION 2 - SUBROUTINES CALLED | 0 SORTXY SECTION 3 PLOTXY SECTION 4 .EXIT. SECTION 5 | SYSLOC SECTION 6 | - EFN IFN CORRESPONDENCE | 0EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION | THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 00143. 1 IBLDR 12/01/64 PAGE 33 | * CROSS REFERENCE LOGIC * | 0 | 0DECK PLOTXS 02760 SIZE = 01664| REAL JOLO 02761 SIZE = 00014 REF'D BY - PISTUS, PLOTMS REAL PLOTXY 04552 REF'D BY - MAINP | VIRT .FWRD. REFERS TO FRDD AT 14672| VIRT .XP2. REFERS TO FXP2 AT 22070| VIRT PISTUG REFERS TO PISTUS AT 07624| VIRT .FXEM. REFERS TO FXEM AT 14173 VIRT .UN06. REFERS TO UN06 AT 21663| VIRT .FFIL. REFERS TO FIOH AT 16337| VIRT .FCNV. REFERS TO FIOH AT 16242| VIRT E.1 REFERS TO .ERAS. AT 14162| VIRT E.2 REFERS TO .ERAS. AT 14163 VIRT E.3 REFERS TO .ERAS. AT 14164| VIRT E.4 REFERS TO .ERAS. AT 14165| VIRT CC.1 REFERS TO .XCC. AT 14166| VIRT CC.2 REFERS TO .XCC. AT 14167| VIRT CC.3 REFERS TO .XCC. AT 14170 VIRT CC.4 REFERS TO .XCC. AT 14171| VIRT SYSLOC REFERS TO .JBCON AT 02652| 0DECK PLOTMS 04644 SIZE = 02212| REAL JOLO DELETED REFERS TO PLOTXS AT 02761| REAL PLOTMY 06746 VIRT .FWRD. REFERS TO FRDD AT 14672| VIRT .XP2. REFERS TO FXP2 AT 22070| VIRT PISTUG REFERS TO PISTUS AT 07624| VIRT .FXEM. REFERS TO FXEM AT 14173| VIRT .UN06. REFERS TO UN06 AT 21663 VIRT .FFIL. REFERS TO FIOH AT 16337| VIRT .FCNV. REFERS TO FIOH AT 16242| VIRT E.1 REFERS TO .ERAS. AT 14162| VIRT E.2 REFERS TO .ERAS. AT 14163| VIRT E.3 REFERS TO .ERAS. AT 14164 VIRT E.4 REFERS TO .ERAS. AT 14165| VIRT CC.1 REFERS TO .XCC. AT 14166| VIRT CC.2 REFERS TO .XCC. AT 14167| VIRT CC.3 REFERS TO .XCC. AT 14170| VIRT CC.4 REFERS TO .XCC. AT 14171 VIRT SYSLOC REFERS TO .JBCON AT 02652| 0DECK PISTUS 07056 SIZE = 00571| REAL JOLO DELETED REFERS TO PLOTXS AT 02761| REAL PISTUG 07624 REF'D BY - PLOTMS, PLOTXS| VIRT KHAR REFERS TO KHARF AT 07704 VIRT .XP2. REFERS TO FXP2 AT 22070| VIRT .FXEM. REFERS TO FXEM AT 14173| VIRT E.1 REFERS TO .ERAS. AT 14162| VIRT E.2 REFERS TO .ERAS. AT 14163| VIRT E.3 REFERS TO .ERAS. AT 14164 VIRT E.4 REFERS TO .ERAS. AT 14165| VIRT CC.1 REFERS TO .XCC. AT 14166| VIRT CC.2 REFERS TO .XCC. AT 14167| VIRT CC.3 REFERS TO .XCC. AT 14170| VIRT CC.4 REFERS TO .XCC. AT 14171 1 IBLDR 12/01/64 PAGE 34 | * CROSS REFERENCE LOGIC * | 0 VIRT SYSLOC REFERS TO .JBCON AT 02652| 0DECK KHARF 07647 SIZE = 00051| REAL KHAR 07704 REF'D BY - PISTUS VIRT ALOG REFERS TO FLOG AT 21665| VIRT CC.1 REFERS TO .XCC. AT 14166| VIRT CC.2 REFERS TO .XCC. AT 14167| VIRT CC.3 REFERS TO .XCC. AT 14170| VIRT CC.4 REFERS TO .XCC. AT 14171 VIRT SYSLOC REFERS TO .JBCON AT 02652| 0DECK SORTXS 07720 SIZE = 00150| REAL SORTXY 10031 REF'D BY - MAINP | VIRT SYSLOC REFERS TO .JBCON AT 02652| 0DECK SCALES 10070 SIZE = 00143 REAL SCALE 10204| VIRT .XP2. REFERS TO FXP2 AT 22070| VIRT SYSLOC REFERS TO .JBCON AT 02652| 0DECK MAINP 10233 SIZE = 00143| REAL ...... 10364 VIRT SORTXY REFERS TO SORTXS AT 10031| VIRT PLOTXY REFERS TO PLOTXS AT 04552| VIRT .EXIT. REFERS TO XIT AT 14172| VIRT SYSLOC REFERS TO .JBCON AT 02652| 0SUBR .IBSYS 00000 SIZE = 00134 REAL SYSLB1 00000| REAL SYSLB2 00001| REAL SYSLB3 00002| REAL SYSLB4 00003 REF'D BY - FIOS | REAL SYSCRD 00004 REAL SYSPRT 00005| REAL SYSPCH 00006| REAL SYSOU1 00007 REF'D BY - FIOS , FXEM , .FPTRP, .LXSL , .LXCON| REAL SYSOU2 00010| REAL SYSIN1 00011 REF'D BY - FIOS REAL SYSIN2 00012| REAL SYSPP1 00013| REAL SYSPP2 00014| REAL SYSCK1 00015| REAL SYSCK2 00016 REAL SYSUT1 00017| REAL SYSUT2 00020| REAL SYSUT3 00021| REAL SYSUT4 00022| REAL SYSUT5 00023 REAL SYSUT6 00024| REAL SYSUT7 00025| REAL SYSUT8 00026| REAL SYSUT9 00027| REAL SYSTRA 00100 REAL SYSDAT 00101| REAL SYSCUR 00102| REAL SYSRET 00103 REF'D BY - .LXCON| 1 IBLDR 12/01/64 PAGE 35 | * CROSS REFERENCE LOGIC * 0 REAL SYSKEY 00104| REAL SYSSWS 00105| REAL SYSPOS 00106| REAL SYSUNI 00107 REF'D BY - FIOS , .LXSL , .LXCON| REAL SYSUBC 00110 REAL SYSUAV 00111 REF'D BY - .LXCON| REAL SYSUCW 00112| REAL SYSRPT 00113| REAL SYSCEM 00114| REAL SYSDMP 00115 REF'D BY - .LXCON REAL SYSIOX 00116| REAL SYSIDR 00117 REF'D BY - .LXCON| REAL SYSCOR 00120| REAL SYSLDR 00121| REAL SYSACC 00122 REAL SYSPID 00123| REAL SYSCYD 00124| REAL SYSSLD 00126| REAL SYSTCH 00127| REAL SYSTWT 00131 REF'D BY - .LXSL , .IOCSF REAL SYSGET 00132| REAL SYSJOB 00133 REF'D BY - .LXSL , .IOCSF, .LXCON| 0SUBR .IOEX 00702 SIZE = 00047| REAL .ACTV 00702 REF'D BY - .LXSL , .IOCSF, .IODEF| REAL .NDSEL 00704 REAL .MWR 00706 REF'D BY - .LXSL , .LXCON| REAL .PUNCH 00707| REAL .ENBSW 00710| REAL .PAWS 00711| REAL .PAUSE 00712 REAL .STOP 00713| REAL .SYMUN 00714| REAL .DECVD 00715 REF'D BY - .LXSL | REAL .DECVA 00716 REF'D BY - FIOT | REAL .CKWAT 00717 REAL .BCD5R 00720 REF'D BY - FXEM , .LXCON| REAL .BCD5X 00721 REF'D BY - FIOH | REAL .CVPRT 00722| REAL .STOPD 00723 REF'D BY - .LXCON| REAL .CHXAC 00724 REAL .URRX 00725 REF'D BY - .LXSL | REAL .RCTX 00726| REAL .RCHX 00727 REF'D BY - .LXSL | REAL .TCOX 00730| REAL .TRCX 00731 REAL .ETTX 00732| REAL .TEFX 00733| REAL .TRAPX 00734| REAL .TRAPS 00735| REAL .COMM 00736 REAL .LTPOS 00737| REAL .IOXSI 00740| REAL .CHPSW 00741| REAL .TRPSW 00742| REAL .FDAMT 00743 REF'D BY - .LXSL 1 IBLDR 12/01/64 PAGE 36 | * CROSS REFERENCE LOGIC * | 0 REAL .SDCXI 00744| REAL .STCXI 00745| REAL .COMMD 00746 REAL .IBCDZ 00747| REAL .CHXSP 00750| 0SUBR .JBCON 02652 SIZE = 00046| REAL SYSLOC 02652 REF'D BY - MAINP , SCALES, SORTXS, KHARF , PISTUS, PLOTMS, PLOTXS, FXP2 , F| LOG , FCNV , FIOH , FRDD , FXEM , .LXSL REAL SYSFAZ 02653| REAL .JCOR 02654| REAL .JDATE 02655| REAL .JLDAT 02656| REAL .JTYPE 02660 REF'D BY - .LXCON REAL .JLIN 02661 REF'D BY - FIOS , .LXCON| REAL .JVER 02662| REAL SYSDSB 02663| REAL .IOEXD 02664| REAL .FDPOS 02715 REAL .JDTRK 02716| REAL SYSZRO 02717| 0SUBR .LXCON 10376 SIZE = 00454| REAL .LXSTR 10376| REAL .LXSTP 10401 REF'D BY - .LXSL REAL .LXOUT 10447| REAL .LXERR 10456 REF'D BY - FIOS , FXEM | REAL .LXCAL 10461| REAL .LXRTN 10461 REF'D BY - FIOS , XIT | REAL IBEXIT 10461 REAL .DBCLS 10643| REAL .LXARG 11012| REAL .L0 11035| REAL .CLSE 11043 REF'D BY - .IODEF| REAL .LFBL 11044 REAL .LUNB 11045 REF'D BY - .IODEF| REAL .DFOUT 11046 REF'D BY - .LXSL | VIRT .LXSEL REFERS TO .LXSL AT 13601| VIRT .LXSL1 REFERS TO .LXSL AT 13602| VIRT .BCD5R REFERS TO .IOEX AT 00720 VIRT .MWR REFERS TO .IOEX AT 00706| VIRT .JTYPE REFERS TO .JBCON AT 02660| VIRT SYSJOB REFERS TO .IBSYS AT 00133| VIRT SYSUNI REFERS TO .IBSYS AT 00107| VIRT SYSUAV REFERS TO .IBSYS AT 00111 VIRT SYSIDR REFERS TO .IBSYS AT 00117| VIRT .JLIN REFERS TO .JBCON AT 02661| VIRT SYSRET REFERS TO .IBSYS AT 00103| VIRT SYSDMP REFERS TO .IBSYS AT 00115| VIRT SYSOU1 REFERS TO .IBSYS AT 00007 VIRT .LTCH REFERS TO .LXSL AT 13743| VIRT .STOPD REFERS TO .IOEX AT 00723| 0SUBR .IODEF 11052 SIZE = 00224| REAL .DEFIN 11052 REF'D BY - .IOCSF| REAL .ATTAC 11056 1 IBLDR 12/01/64 PAGE 37 | * CROSS REFERENCE LOGIC * | 0 REAL .CLOSE 11060 REF'D BY - FIOS | REAL .OPEN 11062 REF'D BY - FIOS | REAL .READ 11064 REF'D BY - FIOS REAL .WRITE 11066 REF'D BY - FIOS | REAL .BSR 11076| REAL .READR 11106| REAL .RELES 11110| REAL .LAREA 11121 REAL .LFBLK 11137 REF'D BY - .IOCSF| REAL .LTSX 11142| REAL .RLHLD 11152| REAL .AREA1 11155 REF'D BY - .IOCSF| REAL .LUNBL 11163 REAL .ENTRY 11167 REF'D BY - .IOCSF| REAL .GOA 11224 REF'D BY - .IOCSF| REAL .GO 11230 REF'D BY - .IOCSF| REAL .DERR 11244 REF'D BY - .IOCSF| REAL .NOPXI 11245 REF'D BY - .IOCSF REAL .COMXI 11247 REF'D BY - .IOCSF| REAL .EX34 11271 REF'D BY - .IOCSF| VIRT .ACTV REFERS TO .IOEX AT 00702| VIRT .CLSE REFERS TO .LXCON AT 11043| VIRT .LUNB REFERS TO .LXCON AT 11045 0SUBR .IOCSF 11276 SIZE = 02302| VIRT .ACTV REFERS TO .IOEX AT 00702| VIRT .NOPXI REFERS TO .IODEF AT 11245| VIRT .COMXI REFERS TO .IODEF AT 11247| VIRT .LFBLK REFERS TO .IODEF AT 11137 VIRT .AREA1 REFERS TO .IODEF AT 11155| VIRT .EX34 REFERS TO .IODEF AT 11271| VIRT .DEFIN REFERS TO .IODEF AT 11052| VIRT .ENTRY REFERS TO .IODEF AT 11167| VIRT .GOA REFERS TO .IODEF AT 11224 VIRT .GO REFERS TO .IODEF AT 11230| VIRT .DERR REFERS TO .IODEF AT 11244| VIRT SYSTWT REFERS TO .IBSYS AT 00131| VIRT SYSJOB REFERS TO .IBSYS AT 00133| 0SUBR .LXSL 13600 SIZE = 00152 REAL .LXSLB 13600| REAL .LXSEL 13601 REF'D BY - .LXCON, FXEM | REAL .LXSL1 13602 REF'D BY - .LXCON, .FPTRP| REAL .LXTST 13605| REAL .LXOVL 13650 REAL .LXMOD 13712| REAL .LXIND 13736| REAL .LXDIS 13741| REAL .LXFLG 13742| REAL .LTCH 13743 REF'D BY - .LXCON, FXEM , .FPTRP VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT SYSOU1 REFERS TO .IBSYS AT 00007| VIRT .DFOUT REFERS TO .LXCON AT 11046| VIRT SYSUNI REFERS TO .IBSYS AT 00107| VIRT .ACTV REFERS TO .IOEX AT 00702 VIRT .RCHX REFERS TO .IOEX AT 00727| 1 IBLDR 12/01/64 PAGE 38 | * CROSS REFERENCE LOGIC * | 0 VIRT SYSJOB REFERS TO .IBSYS AT 00133| VIRT .URRX REFERS TO .IOEX AT 00725 VIRT .DECVD REFERS TO .IOEX AT 00715| VIRT .FDAMT REFERS TO .IOEX AT 00743| VIRT .MWR REFERS TO .IOEX AT 00706| VIRT .LXSTP REFERS TO .LXCON AT 10401| VIRT SYSTWT REFERS TO .IBSYS AT 00131 0SUBR .FPTRP 13752 SIZE = 00210| REAL .FFPT. 13752| REAL .FPOUT 14101| REAL .FPARG 14107| REAL .COUNT 14111 REAL OVFLOW 14155| VIRT .LXSL1 REFERS TO .LXSL AT 13602| VIRT SYSOU1 REFERS TO .IBSYS AT 00007| VIRT .LTCH REFERS TO .LXSL AT 13743| 0SUBR .ERAS. 14162 SIZE = 00004 REAL E.1 14162 REF'D BY - PISTUS, PLOTMS, PLOTXS| REAL E.2 14163 REF'D BY - PISTUS, PLOTMS, PLOTXS| REAL E.3 14164 REF'D BY - PISTUS, PLOTMS, PLOTXS| REAL E.4 14165 REF'D BY - PISTUS, PLOTMS, PLOTXS| 0SUBR .XCC. 14166 SIZE = 00004 REAL CC.1 14166 REF'D BY - KHARF , PISTUS, PLOTMS, PLOTXS| REAL CC.2 14167 REF'D BY - KHARF , PISTUS, PLOTMS, PLOTXS| REAL CC.3 14170 REF'D BY - KHARF , PISTUS, PLOTMS, PLOTXS| REAL CC.4 14171 REF'D BY - KHARF , PISTUS, PLOTMS, PLOTXS| 0SUBR XIT 14172 REAL EXIT 14172| REAL .EXIT. 14172 REF'D BY - MAINP | VIRT .LXRTN REFERS TO .LXCON AT 10461| 0SUBR FXEM 14173 SIZE = 00357| REAL .FXEM. 14173 REF'D BY - PISTUS, PLOTMS, PLOTXS, FXP2 , FLOG , FIOT , FCNV , FIOH , F IOS | REAL TRACE 14201| REAL .OPTW. 14536 SIZE = 00003| VIRT .LXSEL REFERS TO .LXSL AT 13601| VIRT SYSLOC REFERS TO .JBCON AT 02652 VIRT .BCD5R REFERS TO .IOEX AT 00720| VIRT .LXERR REFERS TO .LXCON AT 10456| VIRT SYSOU1 REFERS TO .IBSYS AT 00007| VIRT .LTCH REFERS TO .LXSL AT 13743| 0SUBR FCOM 14552 SIZE = 00115 REAL .FCOM. 14552 REF'D BY - FIOT , FCNV , FIOH , FIOS , FRDD | REAL FORCOM 14655 SIZE = 00012| 0SUBR FRDD 14667 SIZE = 00115| REAL .FRDD. 14667| REAL .FWRD. 14672 REF'D BY - PLOTMS, PLOTXS VIRT .FIOH. REFERS TO FIOH AT 15463| VIRT .FCOM. REFERS TO FCOM AT 14552| 1 IBLDR 12/01/64 PAGE 39 | * CROSS REFERENCE LOGIC * | 0 VIRT .FIOS. REFERS TO FIOS AT 15004 VIRT .FCON. REFERS TO FCNV AT 16456| VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .FSEL. REFERS TO FIOS AT 15173| VIRT .FRTB. REFERS TO FIOS AT 15210| VIRT .FRTD. REFERS TO FIOS AT 15225 0SUBR FIOS 15004 SIZE = 00457| REAL .FIOS. 15004 REF'D BY - FRDD | REAL .FSEL. 15173 REF'D BY - FRDD | REAL .FRTB. 15210 REF'D BY - FRDD | REAL .FRTD. 15225 REF'D BY - FRDD REAL .FBF1. 15457| VIRT .FIOT. REFERS TO FIOT AT 21544| VIRT .FXEM. REFERS TO FXEM AT 14173| VIRT .FCOM. REFERS TO FCOM AT 14552| VIRT SYSUNI REFERS TO .IBSYS AT 00107 VIRT SYSIN1 REFERS TO .IBSYS AT 00011| VIRT SYSOU1 REFERS TO .IBSYS AT 00007| VIRT SYSLB4 REFERS TO .IBSYS AT 00003| VIRT .FIOE. REFERS TO FIOT AT 21635| VIRT .CLOSE REFERS TO .IODEF AT 11060 VIRT .OPEN REFERS TO .IODEF AT 11062| VIRT .READ REFERS TO .IODEF AT 11064| VIRT .WRITE REFERS TO .IODEF AT 11066| VIRT .JLIN REFERS TO .JBCON AT 02661| VIRT .LXERR REFERS TO .LXCON AT 10456 VIRT .LXRTN REFERS TO .LXCON AT 10461| 0SUBR FIOH 15463 SIZE = 00773| REAL .FIOH. 15463 REF'D BY - FRDD | REAL .FCNV. 16242 REF'D BY - PLOTMS, PLOTXS| REAL .FFIL. 16337 REF'D BY - PLOTMS, PLOTXS REAL .FRTN. 16337| VIRT .FCON. REFERS TO FCNV AT 16456| VIRT .FXEM. REFERS TO FXEM AT 14173| VIRT SYSLOC REFERS TO .JBCON AT 02652| VIRT .FCOM. REFERS TO FCOM AT 14552 VIRT .BCD5X REFERS TO .IOEX AT 00721| 0SUBR FCNV 16456 SIZE = 03066| REAL .FCON. 16456 REF'D BY - FIOH , FRDD | VIRT .FXEM. REFERS TO FXEM AT 14173| VIRT SYSLOC REFERS TO .JBCON AT 02652 VIRT .FCOM. REFERS TO FCOM AT 14552| 0SUBR FIOT 21544 SIZE = 00117| REAL .FIOT. 21544 REF'D BY - FIOS , UN06 | REAL .FIOE. 21635 REF'D BY - FIOS | VIRT .FXEM. REFERS TO FXEM AT 14173 VIRT .FCOM. REFERS TO FCOM AT 14552| VIRT .DECVA REFERS TO .IOEX AT 00716| 0SUBR UN06 21663| REAL .UN06. 21663 REF'D BY - PLOTMS, PLOTXS| REAL ..UN06 21663 1 IBLDR 12/01/64 PAGE 40 | * CROSS REFERENCE LOGIC * | 0 VIRT .FIOT. REFERS TO FIOT AT 21544| 0SUBR FLOG 21664 SIZE = 00204| REAL ALOG10 21664 REAL ALOG 21665 REF'D BY - KHARF | VIRT .FXEM. REFERS TO FXEM AT 14173| VIRT SYSLOC REFERS TO .JBCON AT 02652| 0SUBR FXP2 22070 SIZE = 00116| REAL .XP2. 22070 REF'D BY - SCALES, PISTUS, PLOTMS, PLOTXS VIRT .FXEM. REFERS TO FXEM AT 14173| VIRT SYSLOC REFERS TO .JBCON AT 02652| 1 IBLDR 12/01/64 PAGE 41 | * IOCS CONTROLS * | 0 0FILE LIST | LOC | 0 02734 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT = 00001| 02735 UNIT06 | 0BUFFER POOL LOC | 0 22206 BUFFER COUNT = 00936 , BUFFER SIZE = 00023 FILE COUNT= 00001 , FILE LIST LOC = 02734| 1 IBLDR 12/01/64 PAGE 42 | * MEMORY MAP * | 0 0SYSTEM 00000 THRU 02717| FILE BLOCK ORIGIN 02720| FILES 1. UNIT06 | FILE LIST ORIGIN 02734| PRE-EXECUTION INITIALIZATION 02736 CALL ON OBJECT PROGRAM 02753| OBJECT PROGRAM 02760 THRU 22205| 0 DECK ORIGIN CONTROL SECTIONS (/NAME/=NON 0 LENGTH, (LOC)=DELETED, 'LOC'=MOVED, *=NOT REFERENCED)| | 1. PLOTXS 02760 /JOLO / 02761 PLOTXY 04552 2. PLOTMS 04644 /JOLO /(02761) PLOTMY 06746 * | 3. PISTUS 07056 /JOLO /(02761) PISTUG 07624 | 4. KHARF 07647 KHAR 07704 | 5. SORTXS 07720 SORTXY 10031 | 6. SCALES 10070 SCALE 10204 * 7. MAINP 10233 ...... 10364 * | 8. .LXCON 10376 .LXSTR 10376 * .LXSTP 10401 .LXOUT 10447 * .LXERR 10456 .LXCAL 10461 * | .LXRTN 10461 IBEXIT 10461 * .DBCLS 10643 * .LXARG 11012 * .L0 11035 * | .CLSE 11043 .LFBL 11044 * .LUNB 11045 .DFOUT 11046 | 9. .IODEF 11052 .DEFIN 11052 .ATTAC 11056 * .CLOSE 11060 .OPEN 11062 .READ 11064 .WRITE 11066 .BSR 11076 * .READR 11106 * .RELES 11110 * .LAREA 11121 * | .LFBLK 11137 .LTSX 11142 * .RLHLD 11152 * .AREA1 11155 .LUNBL 11163 * | .ENTRY 11167 .GOA 11224 .GO 11230 .DERR 11244 .NOPXI 11245 | .COMXI 11247 .EX34 11271 | 10. .IOCSF 11276 11. .LXSL 13600 .LXSLB 13600 * .LXSEL 13601 .LXSL1 13602 .LXTST 13605 * .LXOVL 13650 * | .LXMOD 13712 * .LXIND 13736 * .LXDIS 13741 * .LXFLG 13742 * .LTCH 13743 | 12. .FPTRP 13752 .FFPT. 13752 * .FPOUT 14101 * .FPARG 14107 * /.COUNT/ 14111 * OVFLOW 14155 * | 13. .ERAS. 14162 E.1 14162 E.2 14163 E.3 14164 E.4 14165 | 14. .XCC. 14166 CC.1 14166 CC.2 14167 CC.3 14170 CC.4 14171 15. XIT 14172 EXIT 14172 * .EXIT. 14172 | 16. FXEM 14173 .FXEM. 14173 TRACE 14201 * /.OPTW./ 14536 * | 17. FCOM 14552 .FCOM. 14552 /FORCOM/ 14655 * | 18. FRDD 14667 .FRDD. 14667 * .FWRD. 14672 | 19. FIOS 15004 .FIOS. 15004 .FSEL. 15173 .FRTB. 15210 .FRTD. 15225 /.FBF1./ 15457 * 20. FIOH 15463 .FIOH. 15463 .FCNV. 16242 .FFIL. 16337 .FRTN. 16337 * | 21. FCNV 16456 .FCON. 16456 | 22. FIOT 21544 .FIOT. 21544 .FIOE. 21635 | 23. UN06 21663 .UN06. 21663 ..UN06 21663 * | 24. FLOG 21664 ALOG10 21664 * ALOG 21665 25. FXP2 22070 .XP2. 22070 | 0I/O BUFFERS 22206 THRU 77757| 0UNUSED CORE 77760 THRU 77777| 0 PT PT X*E-0 Y*E-0 P 0.34 0.54 0.74 0.94 1.14 1.34 1.54 1.74 1.94 2.14 2. 34 P Q1-------- ------------------------------------------------------------------------------------------- -- P+ 0. P Q1 P Q1 P Q1 P Q1 0 P+ 0.220 0.430 P Q1 P Q1 P Q1 0 P+ 0.370 1.010 P Q1 P Q1 0 P+ 0.450 2.300 P Q1-------- ------------------------------------------------------------------------------------------- -- P+ 0.50 P Q1 P Q1 P Q1 P Q1 P Q1 P Q1 P Q1 P Q1 P Q1 P Q1-------- ------------------------------------------------------------------------------------------- -- P+ 1.00 P Q1 P Q1 0 0 P+ 1.100 1.120 P Q1 P Q1 P Q1 P Q1 P Q1 P Q1 P Q1 P Q1-------- ------------------------------------------------------------------------------------------- -- P+ 1.50 P Q1 P Q1 P Q1 P Q1 P Q1 P Q1 P Q1 P Q1 P Q1 P Q1-------- ------------------------------------------------------------------------------------------- -- P+ 2.00 P Q1 P Q0 P+ 2.100 0.340 P Q1 P Q1 0 P+ 2.200 0.720 P Q1 P Q1 P Q1 P Q1 P Q1 P Q1-------- ------------------------------------------------------------------------------------------- -- P+ 2.50 P 0.34 0.54 0.74 0.94 1.14 1.34 1.54 1.74 1.94 2.14 2. 34 PL 1 1518 LINES OUTPUT. $IBSYS $PAUSE DONE OPER. ACTION PAUSE| 1