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