1      SUBROUTINE CLEARA(IFIG,ROUTL,MSSCLL)
2C
3C***  CLEAR STORAGE ARRAYS FOR EXTRAPOLATION MESSAGES
4C
5      INTEGER ROUT,ROUTL
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), LDUM(121)
29      DIMENSION IFIG(20,121)
30      DATA IHBL/4H    /
31      DO 1000 I=1,121
32      AFIG01(I)=0.
33      AFIG02(I)=0.
34      AFIG03(I)=0.
35      AFIG04(I)=0.
36      AFIG05(I)=0.
37      AFIG06(I)=0.
38      AFIG07(I)=0.
39      AFIG08(I)=0.
40      AFIG09(I)=0.
41      AFIG10(I)=0.
42      AFIG11(I)=0.
43      AFIG12(I)=0.
44      AFIG13(I)=0.
45      AFIG14(I)=0.
46      JFIG01(I)=0
47      JFIG02(I)=0
48      JFIG03(I)=0
49      JFIG04(I)=0
50      JFIG05(I)=0
51      JFIG06(I)=0
52      JFIG07(I)=0
53      JFIG08(I)=0
54      JFIG09(I)=0
55      JFIG10(I)=0
56      JFIG11(I)=0
57      JFIG12(I)=0
58      JFIG13(I)=0
59      JFIG14(I)=0
60      JFIG15(I)=0
61      JFIG16(I)=0
62      JFIG17(I)=0
63      JFIG18(I)=0
64      JFIG19(I)=0
65      JFIG20(I)=0
66      LFIGN(I)=0
67      LFIGO(I)=0
68      LFIGS(I)=0
69      LDUM(121)=0
70 1000 CONTINUE
71      DO 1010 I=1,4
72         IEXCD(I)=0
73         XLL(I)=0.
74         XUL(I)=0.
75         IEXTRL(I,1)=0
76         IEXTRU(I,1)=0
77         IEXTRL(I,2)=0
78         IEXTRU(I,2)=0
79         XVAL(I)=0.
80 1010 CONTINUE
81      DO 1020 I=1,2
82         ROUT(I)=IHBL
83         MSSCL(I)=IHBL
84 1020 CONTINUE
85      DO 1030 I=1,20
86         IFIGST(I)=IHBL
87 1030 CONTINUE
88      IOVLY=999
89      IOVL=0
90      NSTQ=0
91      NSTP=0
92      FINALR=0.
93      NFIG=0
94      IFIGN=0
95      ROUTL=IHBL
96      MSSCLL=IHBL
97      DO 1040 I=1,121
98         DO 1040 J=1,20
99            IFIG(J,I)=IHBL
100 1040 CONTINUE
101      RETURN
102      END
103