1 SUBROUTINE READXM(IFIG) 2C 3C*** READS EXTRAPOLATION MESSAGES FROM UNIT 12 4C 5 INTEGER ROUT 6 COMMON /IBODY/ PB, AFIG01(121), AFIG02(121) 7 COMMON /IWING/ PW, AFIG03(121), AFIG04(121) 8 COMMON /IHT/ PHT, AFIG05(121), AFIG06(121) 9 COMMON /IVT/ PVT, AFIG07(121), AFIG08(121) 10 COMMON /IVF/ PVF, AFIG09(121), AFIG10(121) 11 COMMON /IBW/ PBW, AFIG11(121), AFIG12(121) 12 COMMON /IBH/ PBH, AFIG13(121), AFIG14(121) 13 COMMON /IBV/ PBV, JFIG01(121), JFIG02(121) 14 COMMON /IBWH/ PBWH, JFIG03(121), JFIG04(121) 15 COMMON /IBWV/ PBWV, JFIG05(121), JFIG06(121) 16 COMMON /IBWHV/PBWHV, JFIG07(121), JFIG08(121) 17 COMMON /WINGD/ JFIG09(121) 18 COMMON /SBETA/ JFIG10(121), JFIG11(121), JFIG12(121) 19 COMMON /BDATA/ JFIG13(121), JFIG14(121), JFIG15(121), 20 1 JFIG16(121), JFIG17(121) 21 COMMON /WHWB/ JFIG18(121) 22 COMMON /WBHCAL/ JFIG19(121) 23 COMMON /HTDATA/ JFIG20(121) 24 COMMON /VTDATA/ LFIGN(121),LFIGO(121),IOVLY,IOVL,NSTQ,NSTP,FINALR, 25 1 NFIG,IFIGN 26 COMMON /WHAERO/ LFIGS(121), IFIGST(20), IEXCD(4), MSSCL(2), 27 1 ROUT(2), XLL(4), XUL(4), IEXTRL(4,2), 28 2 IEXTRU(4,2), XVAL(4) 29 DIMENSION IFIG(20,121) 30 DATA IHBL,IHVAL,IHLAST,IHEAR,IHLIN,IHTRIC,IHQUAD,IHREQD,IHNOT/ 31 14H ,4H VAL,4HLAST,4HEAR ,4H LIN,4HTRIC,4HQUAD,4HREQD,4HNOT / 32 READ(12,1030) IOVLY,NSTQ,NSTP 33 IF(NFIG.EQ.0)IOVL=IOVLY 34 NFIG=NFIG+1 35 DO 1000 L=1,20 36 IFIG(L,NFIG)=IHBL 37 1000 CONTINUE 38 IF(IOVLY.EQ.999 .OR. IOVLY.LE.0)GO TO 1020 39 IF(NSTQ .GT. 5)NSTQ=5 40 NN=4*NSTQ 41 READ(12,1040)MSSCL(1),MSSCL(2),ROUT(1),ROUT(2),(IFIG(L,NFIG), L=1, 42 1 NN) 43 DO 1010 L=1,NSTP 44 READ(12,1050)XVAL(L),XLL(L),XUL(L),IEXTRL(L,1),IEXTRU(L,1) 45C 46C REPLACE NUMERIC EXTRAPOLATION TYPE WITH HOLLERITH 47C -1 = NOT REQUIRED 48C 0 = LAST VALUE USED 49C 1 = LINEAR 50C 2 = QUADRATIC 51C 52 IF(IEXTRL(L,1).EQ.0)IEXTRL(L,2)=IHVAL 53 IF(IEXTRL(L,1).EQ.0)IEXTRL(L,1)=IHLAST 54 IF(IEXTRL(L,1).EQ.1)IEXTRL(L,2)=IHEAR 55 IF(IEXTRL(L,1).EQ.1)IEXTRL(L,1)=IHLIN 56 IF(IEXTRL(L,1).EQ.2)IEXTRL(L,2)=IHTRIC 57 IF(IEXTRL(L,1).EQ.2)IEXTRL(L,1)=IHQUAD 58 IF(IEXTRL(L,1).EQ.-1)IEXTRL(L,2)=IHREQD 59 IF(IEXTRL(L,1).EQ.-1)IEXTRL(L,1)=IHNOT 60 IF(IEXTRU(L,1).EQ.0)IEXTRU(L,2)=IHVAL 61 IF(IEXTRU(L,1).EQ.0)IEXTRU(L,1)=IHLAST 62 IF(IEXTRU(L,1).EQ.1)IEXTRU(L,2)=IHEAR 63 IF(IEXTRU(L,1).EQ.1)IEXTRU(L,1)=IHLIN 64 IF(IEXTRU(L,1).EQ.2)IEXTRU(L,2)=IHTRIC 65 IF(IEXTRU(L,1).EQ.2)IEXTRU(L,1)=IHQUAD 66 IF(IEXTRU(L,1).EQ.-1)IEXTRU(L,2)=IHREQD 67 IF(IEXTRU(L,1).EQ.-1)IEXTRU(L,1)=IHNOT 68 1010 CONTINUE 69 READ(12,1060) FINALR 70 1020 CONTINUE 71 1030 FORMAT(3I3) 72 1040 FORMAT(4A4,20A1) 73 1050 FORMAT(3E12.5,2I2) 74 1060 FORMAT(E12.5) 75 RETURN 76 END 77