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