1 SUBROUTINE WRITXM(IFIG,IPRT,JK,JJ,IOVM,ROUTL,I,MSSCLL) 2C 3C *** PRINTS SUMMARIZED EXTRAPOLATION MESSAGES 4C 5 INTEGER ROUT,ROUTL 6 LOGICAL PAIRX 7 COMMON /IBODY/ PB, AFIG01(121), AFIG02(121) 8 COMMON /IWING/ PW, AFIG03(121), AFIG04(121) 9 COMMON /IHT/ PHT, AFIG05(121), AFIG06(121) 10 COMMON /IVT/ PVT, AFIG07(121), AFIG08(121) 11 COMMON /IVF/ PVF, AFIG09(121), AFIG10(121) 12 COMMON /IBW/ PBW, AFIG11(121), AFIG12(121) 13 COMMON /IBH/ PBH, AFIG13(121), AFIG14(121) 14 COMMON /IBV/ PBV, JFIG01(121), JFIG02(121) 15 COMMON /IBWH/ PBWH, JFIG03(121), JFIG04(121) 16 COMMON /IBWV/ PBWV, JFIG05(121), JFIG06(121) 17 COMMON /IBWHV/PBWHV, JFIG07(121), JFIG08(121) 18 COMMON /WINGD/ JFIG09(121) 19 COMMON /SBETA/ JFIG10(121), JFIG11(121), JFIG12(121) 20 COMMON /BDATA/ JFIG13(121), JFIG14(121), JFIG15(121), 21 1 JFIG16(121), JFIG17(121) 22 COMMON /WHWB/ JFIG18(121) 23 COMMON /WBHCAL/ JFIG19(121) 24 COMMON /HTDATA/ JFIG20(121) 25 COMMON /VTDATA/ LFIGN(121),LFIGO(121),IOVLY,IOVL,NSTQ,NSTP,FINALR, 26 1 NFIG,IFIGN 27 COMMON /WHAERO/ LFIGS(121), IFIGST(20), IEXCD(4), MSSCL(2), 28 1 ROUT(2), XLL(4), XUL(4), IEXTRL(4,2), 29 2 IEXTRU(4,2), XVAL(4), LDUM(121), PAIRX 30 DIMENSION IFIG(20,121) 31 DATA IHAST,IHBL/4H ** ,4H / 32C 33C IF NEW OVERLAY OR DIFFERENT ROUTINES - PRINT NEW TITLES 34C 35 IF(IOVLY.NE.IOVL .OR. IPRT.EQ.6)GO TO 1010 36 IF(NFIG.GE.119.AND.PAIRX)GO TO 1010 37 DO 1000 K=1,20 38 IF(IFIG(K,JJ).NE.IFIGST(K)) GO TO 1020 39 1000 CONTINUE 40 IF(JFIG03(JJ).NE.ROUTL .OR. JFIG01(JJ).NE.MSSCLL)GO TO 1020 41 GO TO 1040 42 1010 CONTINUE 43 PAIRX=.FALSE. 44 IPRT=IPRT+2 45 IF(JK.EQ.1)WRITE(6,1060)IOVM,(IFIG(L,JJ),L=1,20) 46 1 ,JFIG05(I),JFIG09(I),JFIG13(I),JFIG17(I) 47 IF(JK.EQ.2)WRITE(6,1060)IOVM,(IFIG(L,JJ),L=1,20) 48 1 ,JFIG05(I),JFIG09(I),JFIG13(I),JFIG17(I) 49 2 ,JFIG06(I),JFIG10(I),JFIG14(I),JFIG18(I) 50 IF(JK.EQ.3)WRITE(6,1060)IOVM,(IFIG(L,JJ),L=1,20) 51 1 ,JFIG05(I),JFIG09(I),JFIG13(I),JFIG17(I) 52 2 ,JFIG06(I),JFIG10(I),JFIG14(I),JFIG18(I) 53 3 ,JFIG07(I),JFIG11(I),JFIG15(I),JFIG19(I) 54 IF(JK.EQ.4)WRITE(6,1060)IOVM,(IFIG(L,JJ),L=1,20) 55 1 ,JFIG05(I),JFIG09(I),JFIG13(I),JFIG17(I) 56 2 ,JFIG06(I),JFIG10(I),JFIG14(I),JFIG18(I) 57 3 ,JFIG07(I),JFIG11(I),JFIG15(I),JFIG19(I) 58 4 ,JFIG08(I),JFIG12(I),JFIG16(I),JFIG20(I) 59 IOVL=IOVLY 60 GO TO 1030 61 1020 CONTINUE 62 IPRT=IPRT+2 63 IF(JK.EQ.1)WRITE(6,1070)(IFIG(L,JJ),L=1,20) 64 1 ,JFIG05(I),JFIG09(I),JFIG13(I),JFIG17(I) 65 IF(JK.EQ.2)WRITE(6,1070)(IFIG(L,JJ),L=1,20) 66 1 ,JFIG05(I),JFIG09(I),JFIG13(I),JFIG17(I) 67 2 ,JFIG06(I),JFIG10(I),JFIG14(I),JFIG18(I) 68 IF(JK.EQ.3)WRITE(6,1070)(IFIG(L,JJ),L=1,20) 69 1 ,JFIG05(I),JFIG09(I),JFIG13(I),JFIG17(I) 70 2 ,JFIG06(I),JFIG10(I),JFIG14(I),JFIG18(I) 71 3 ,JFIG07(I),JFIG11(I),JFIG15(I),JFIG19(I) 72 IF(JK.EQ.4)WRITE(6,1070)(IFIG(L,JJ),L=1,20) 73 1 ,JFIG05(I),JFIG09(I),JFIG13(I),JFIG17(I) 74 2 ,JFIG06(I),JFIG10(I),JFIG14(I),JFIG18(I) 75 3 ,JFIG07(I),JFIG11(I),JFIG15(I),JFIG19(I) 76 4 ,JFIG08(I),JFIG12(I),JFIG16(I),JFIG20(I) 77 1030 CONTINUE 78 IPRT=IPRT+1 79 IF(JK.EQ.1)WRITE(6,1080)JFIG01(I),JFIG02(I),JFIG03(I),JFIG04(I) 80 1 ,AFIG06(I),AFIG10(I) 81 IF(JK.EQ.2)WRITE(6,1080)JFIG01(I),JFIG02(I),JFIG03(I),JFIG04(I) 82 1 ,AFIG06(I),AFIG10(I) 83 2 ,AFIG07(I),AFIG11(I) 84 IF(JK.EQ.3)WRITE(6,1080)JFIG01(I),JFIG02(I),JFIG03(I),JFIG04(I) 85 1 ,AFIG06(I),AFIG10(I) 86 2 ,AFIG07(I),AFIG11(I) 87 3 ,AFIG08(I),AFIG12(I) 88 IF(JK.EQ.4)WRITE(6,1080)JFIG01(I),JFIG02(I),JFIG03(I),JFIG04(I) 89 1 ,AFIG06(I),AFIG10(I) 90 2 ,AFIG07(I),AFIG11(I) 91 3 ,AFIG08(I),AFIG12(I) 92 4 ,AFIG09(I),AFIG13(I) 93 1040 CONTINUE 94 IPRT=IPRT+1 95 DO 1050 L=1,4 96 IEXCD(L)=IHBL 97 1050 CONTINUE 98 IF(AFIG06(I).LE.AFIG10(I))AMIN=AFIG06(I) 99 IF(AFIG10(I).LE.AFIG06(I))AMIN=AFIG10(I) 100 IF(AFIG06(I).GT.AFIG10(I))AMAX=AFIG06(I) 101 IF(AFIG10(I).GT.AFIG06(I))AMAX=AFIG10(I) 102 IF(AFIG02(I).LT.AMIN.OR.AFIG02(I).GT.AMAX) 103 1 IEXCD(1)=IHAST 104 IF(AFIG07(I).LE.AFIG11(I))AMIN=AFIG07(I) 105 IF(AFIG11(I).LE.AFIG07(I))AMIN=AFIG11(I) 106 IF(AFIG07(I).GT.AFIG11(I))AMAX=AFIG07(I) 107 IF(AFIG11(I).GT.AFIG07(I))AMAX=AFIG11(I) 108 IF(AFIG03(I).LT.AMIN.OR.AFIG03(I).GT.AMAX) 109 1 IEXCD(2)=IHAST 110 IF(AFIG08(I).LE.AFIG12(I))AMIN=AFIG08(I) 111 IF(AFIG12(I).LE.AFIG08(I))AMIN=AFIG12(I) 112 IF(AFIG08(I).GT.AFIG12(I))AMAX=AFIG08(I) 113 IF(AFIG12(I).GT.AFIG08(I))AMAX=AFIG12(I) 114 IF(AFIG04(I).LT.AMIN.OR.AFIG04(I).GT.AMAX) 115 1 IEXCD(3)=IHAST 116 IF(AFIG09(I).LE.AFIG13(I))AMIN=AFIG09(I) 117 IF(AFIG13(I).LE.AFIG09(I))AMIN=AFIG13(I) 118 IF(AFIG09(I).GT.AFIG13(I))AMAX=AFIG09(I) 119 IF(AFIG13(I).GT.AFIG09(I))AMAX=AFIG13(I) 120 IF(AFIG05(I).LT.AMIN.OR.AFIG05(I).GT.AMAX) 121 1 IEXCD(4)=IHAST 122 IF(JK.EQ.1)WRITE(6,1090)AFIG14(I),AFIG02(I),IEXCD(1) 123 IF(JK.EQ.2)WRITE(6,1090)AFIG14(I),AFIG02(I),IEXCD(1) 124 1 ,AFIG03(I),IEXCD(2) 125 IF(JK.EQ.3)WRITE(6,1090)AFIG14(I),AFIG02(I),IEXCD(1) 126 1 ,AFIG03(I),IEXCD(2) 127 2 ,AFIG04(I),IEXCD(3) 128 IF(JK.EQ.4)WRITE(6,1090)AFIG14(I),AFIG02(I),IEXCD(1) 129 1 ,AFIG03(I),IEXCD(2) 130 2 ,AFIG04(I),IEXCD(3) 131 3 ,AFIG05(I),IEXCD(4) 132 1060 FORMAT(3H0 ,I2,5X,20A1,6X,8(2X,2A4)) 133 1070 FORMAT(1H0,9X,20A1,6X,8(2X,2A4)) 134 1080 FORMAT(10X,4A4,10X,1P,8E10.2) 135 1090 FORMAT(24X,1P,E13.4,4(3X,E13.4,A4)) 136 RETURN 137 END 138