129 CONTINUF IF (ABS(C2(I) + ANM*C3(I) + 0.5*(ANM+1.)*ANM*C4(I))* 1 SCALE(I) .GT. 127.9) GO TO 30 29 CONTINUE IF (KEY4 .EO. 1 1 GO TO 25 WRITE(6.901)C2 WRITE(6.900)ICUT,C3 WRITE(6.900)NU,C4 GO TO 25 30 CONTINUE 930 FORMAT (18H STEPS INCREASED IF(NU .GT. 245*81 STOP AN = NU NU = MIN(NU+32,NU*2) GO TO 707 23 IF(CMAX .GT. 127.996/16.*255./100.*8.) GO TO 710 IF (CMAX .GT. 127.996/16.*8.) GO TO 708 IF(CMAX .GT. 7.*8.) GO TO 707 C MAX PFRMIS STFPS = (n)377 ssUT NOT(O)200(=128) 707 IF(NU .GO. 128*8)NU=NU+8 GC TO 27 708 NU = 255*8 WRITE(6.709) CMAX,NU GO TO 27 709 FORMAT (' CMAX MAS ='.F10.5.' NU SET ='15) 710 WRITE(6,711) 711 FORMAT (' XSIVE CMAX =') STOP r CALC SPACING FOR PLOTTING POINTS 25 LMD = NU/NOP LM = LMD NUSAV=NU CALL PC WRITE(6.902) J.CI(I),CI(2),(3).CI(4),C1(5) C DATA GFNFRATION FROMCOONS ADDITION LOOP NU=NUSAV DO 12 J=1,NU DO 13 I=1,5 C3(I)=C3(I)+C4(I) C2(I)=C2(I)+C3(I) 13 CI(I)=C2(I)+C2(I) C C2(I)=INCREMENTAL CHANGF 70 CONTINUF 71 CONTINUF C TFST FOR PLOT POINT IF(J .FO.NU) GO TO 72 IF (J .LT.LM) GO TO 12 LM=LM+LMC 72 CONTINUF WRITE(6,902) J,CI(1),CI(2),CI(3),CI(4),CI(5) 755 CONTINUE 902 FORMAT (IX.I6.6(3X.F16.8)) CALL VFCTICI(1),CI(2),CI(5),CI(3),CI(4),DSW,IZ) 12 CONTINUF IF (ICRT .NE. 0) GO TO 75 C PRINT CUT NURBER ON PLOT FCUT=ICUT FCUT = NCUT CSCALF = 1.0 CALL FACTOR(CSCALE) R1 = CI(1) * SAVSCL B2 = CI(2) * SAVSCL CALL NUMBER (B2.BI..I.FCUT.0..-1) CSCALE t SAVSCL CALL FACTOR(CSCALE) 75 CONTINUF C.SAVF ABSOLUTE POSITIONS nn 15 I = 1,5 15 SAVE (I)=CI(I) RETURN FND C SUBROUTINF CRIT(10,IEND) COMMON/ADJSTR/RWXMID,RWYMID,RWXSCL,RWYSCL,R2 COMMON/MAIM/X(1000), Y(1000), STRGL(1000), ICRT, NOP, 1 DTH(1000),TLT(1000),A(1000) COMMON/CTM/ SAVE(5),B(5),C(5),D(5),STC COMMON /CUTN/ICUT,NU,NDIC,VEND(5) COMMON/PATSP/F6 COMMON/CUTSP/NCUT,STRLGT DATA IUP/6HTOOLUP/.ISTOP/6HSTOP / DATA KAUX/6HAUX / COMMON/CHECK/ INC,POSIT,KTOOL DIMENSTON KS(5) IEND = 0 IX = 1 IY = 1 ID = 1 IT = 1 IA = 1 I = 0 IF (TO .EO.O) GO TO 200 C CHECK FOR CONTINUATION X (1)=XX C CONTINUATTION C COPY PREVIOVS LASTPOINT Y(1)=YY DTH(1)=DD TLI(1)=TT A(1)=AA PSTRGL = SS+PSTRGL ZNEW = DTH(I) ALNEW = TLT(I) STRGL(1)=0.0 I=2 X(I) = X(NOP+1) Y(I) = Y(NOP+1) DTH(I) = TLT(NOP+1) TLT(I) = TLT(NOP+1) A(I) = A(NOP+1) STRGL(I)=DLS GO TO 32 200 READ15,970INCUT.NTYPE IF (NCUT .GT. 0) GO TO 922 READ(99,920) (KS(I).I=1.5),IN,IU,KT.ITO WRITE(6,920) (KS(I),I=1.5),IN,IU,KT,ITO 920 FORMAT(71110.A4,A6) IF(ITO .NF. KAUX) WPITE(6,923) KT.ITO 923 FORMAT (' *** CARO SKIPPED *** KAUX= ',A4,A6) IF (KT .EO. ISTOP) GO TO 700 IF(ITO .NE.KAUX) GO TO 200 IWS = IN IF(IWS .NE. 0) GO TO 919 C THIS CARD CONTROLS AUXILIARY FUNCTIONS IWS = -4 L3 = 0 LZ = 0 POSIT = +1.0 KTOOL = 1 DO 918 I = 1,4 IF(KSIT) .EO. 2) KTOOT, = 2 IF ( KS(I) .EO. 2) POSIT = -1.0 IF(KS(I) .EO. 3) L3 = 1 IF(KS(I) .EO. 0) LZ = 1 918 XS(I) = KS(I)*64 IF(LZ .EO. 4) NERR = 0 IF(RWSXCL*RWYSCL .GT. 0.0) GO TO 919 IF(RWXSCL*RWYSCL .EO. 0.0) STOP C BED POSITION CONTROLS MUST BE REVERSEO C UNLESS LAST ZERO = 4TH (ALL = 0) IF (LZ .EO. 4) GO TO 919 POSIT = -1, * POSIT IF(L3 .GT. 0) GO TO 917 IF(LZ .LT. 1) STOP KS(LZ) = 3*64 GO TO 919 917 IF(L3 .LT. 3) STOP XS(L3) = KS(L3-I) L3 = L3 - 1 IF(L3 .GT.I) GO TO 917 919 CONT INUE IwS = 256 + lWS CALL PC3(IWS) CALL PC3(IU) IWS = 0 DO 921 I=1.5 IF( KWS .EQ. 1 ) IND = 1 IF( KWS .FO. 2 ) IDO = 2 KWS = KS(I) CALL PC3(KWS) CALL PC3(IWS) 921 CONTINUF IWS = 128 CALL PC3(IWS) I = 0 GO TO 200 927 CONTINUF PSTRGL = 0.