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