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