1 SUBROUTINE INITZ1 2C 3C*** INITIALIZE ARRAYS FOR PROGRAM USE 4C 5C IDEAL OUTPUT MATRIX 6C BLOCK PRINT IOM 7C NAME FLAG ARRAY 8C 9 COMMON /IBODY/ PBODY, BODY(400) 10 COMMON /IWING/ PWING, WING(400) 11 COMMON /IHT/ PHT, HT(380) 12 COMMON /IVT/ PVT, VT(380) 13 COMMON /IBW/ PBW, BW(380) 14 COMMON /IBH/ PBH, BH(380) 15 COMMON /IBV/ PBV, BV(380) 16 COMMON /IVF/ PVF, VF(380) 17 COMMON /IBWH/ PBWH, BWH(380) 18 COMMON /IBWV/ PBWV, BWV(380) 19 COMMON /IBWHV/ PBWHV, BWHV(380) 20 COMMON /IPOWER/ PPOWER, POWER(200) 21 COMMON /IDWASH/ PDWASH, DWASH(60) 22C 23 LOGICAL PBODY, PWING, PHT, PVT, PVF, PBW, PBH, PBV, PBWH, PBWV, 24 1 PBWHV, PPOWER, PDWASH 25C 26C*** COMPUTATIONAL BLOCKS 27C 28 COMMON /SBETA/ STB(135), TRA(108), TRAH(108), STBH(135) 29 COMMON /WHWB/ FACT(182), WB(39), HB(39) 30 COMMON /WBHCAL/ WBT(156) 31 COMMON /WHAERO/ C(51), D(55), CHT(51), DHT(55), DVT(55), DVF(55) 32 COMMON /POWR/ PW(315) 33 COMMON /SUPWBB/ SWB(61), SHB(61) 34 COMMON /SUPDW/ DWA(237) 35 COMMON /SUPWH/ GR(303) 36 COMMON /SUPBOD/ SBD(229) 37C 38 COMMON /CONSNT/CONST(4) 39 EQUIVALENCE (CONST(3),UNUSED) 40C 41 DO 1000 I=1,51 42 1000 C(I)=UNUSED 43 DO 1010 I=1,55 44 1010 D(I)=UNUSED 45 DO 1020 I=1,39 46 HB(I)=UNUSED 47 1020 WB(I)=UNUSED 48 DO 1030 I=1,182 49 1030 FACT(I)=UNUSED 50 DO 1040 I=1,156 51 1040 WBT(I)=UNUSED 52 DO 1050 I=1,315 53 1050 PW(I)=UNUSED 54 DO 1060 I=1,51 55 1060 CHT(I)=UNUSED 56 DO 1070 I=1,55 57 1070 DHT(I)=UNUSED 58 DO 1080 I=1,55 59 DVF(I)=UNUSED 60 1080 DVT(I)=UNUSED 61 DO 1090 I=1,135 62 STBH(I)=UNUSED 63 1090 STB(I)=UNUSED 64 DO 1100 I=1,229 65 1100 SBD(I)=UNUSED 66 DO 1110 I=1,303 67 1110 GR(I)=UNUSED 68 DO 1120 I=1,61 69 SHB(I)=UNUSED 70 1120 SWB(I)=UNUSED 71 DO 1130 I=1,237 72 1130 DWA(I)=UNUSED 73 DO 1140 I=1,108 74 TRAH(I)=UNUSED 75 1140 TRA(I)=UNUSED 76 DO 1150 I=1,400 77 BODY(I)=UNUSED 78 1150 WING(I)=UNUSED 79 DO 1160 I=1,380 80 HT(I)=UNUSED 81 VT(I)=UNUSED 82 VF(I)=UNUSED 83 BW(I)=UNUSED 84 BH(I)=UNUSED 85 BV(I)=UNUSED 86 BWH(I)=UNUSED 87 BWV(I)=UNUSED 88 1160 BWHV(I)=UNUSED 89 DO 1170 I=1,200 90 1170 POWER(I)=UNUSED 91 DO 1180 I=1,60 92 1180 DWASH(I)=UNUSED 93 RETURN 94 END 95