1      SUBROUTINE STORXM
2C
3C***  STORE EXTRAPOLATION MESSAGE DATA
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      LFIGN(NFIG)=IFIGN
30      AFIG01(NFIG)=NSTP
31      AFIG02(NFIG)=XVAL(1)
32      AFIG03(NFIG)=XVAL(2)
33      AFIG04(NFIG)=XVAL(3)
34      AFIG05(NFIG)=XVAL(4)
35      AFIG06(NFIG)=XLL(1)
36      AFIG07(NFIG)=XLL(2)
37      AFIG08(NFIG)=XLL(3)
38      AFIG09(NFIG)=XLL(4)
39      AFIG10(NFIG)=XUL(1)
40      AFIG11(NFIG)=XUL(2)
41      AFIG12(NFIG)=XUL(3)
42      AFIG13(NFIG)=XUL(4)
43      AFIG14(NFIG)=FINALR
44      JFIG01(NFIG)=MSSCL(1)
45      JFIG02(NFIG)=MSSCL(2)
46      JFIG03(NFIG)=ROUT(1)
47      JFIG04(NFIG)=ROUT(2)
48      JFIG05(NFIG)=IEXTRL(1,1)
49      JFIG06(NFIG)=IEXTRL(2,1)
50      JFIG07(NFIG)=IEXTRL(3,1)
51      JFIG08(NFIG)=IEXTRL(4,1)
52      JFIG09(NFIG)=IEXTRL(1,2)
53      JFIG10(NFIG)=IEXTRL(2,2)
54      JFIG11(NFIG)=IEXTRL(3,2)
55      JFIG12(NFIG)=IEXTRL(4,2)
56      JFIG13(NFIG)=IEXTRU(1,1)
57      JFIG14(NFIG)=IEXTRU(2,1)
58      JFIG15(NFIG)=IEXTRU(3,1)
59      JFIG16(NFIG)=IEXTRU(4,1)
60      JFIG17(NFIG)=IEXTRU(1,2)
61      JFIG18(NFIG)=IEXTRU(2,2)
62      JFIG19(NFIG)=IEXTRU(3,2)
63      JFIG20(NFIG)=IEXTRU(4,2)
64      RETURN
65      END
66