1      SUBROUTINE INITZE
2C
3C***  IDEAL OUTPUT MATRIX
4C
5C             BLOCK    PRINT     IOM
6C             NAME     FLAG     ARRAY
7C
8      COMMON /IBODY/   PBODY,  BODY(400)
9      COMMON /IWING/   PWING,  WING(400)
10      COMMON /IHT/     PHT,    HT(380)
11      COMMON /IVT/     PVT,    VT(380)
12      COMMON /IVF/     PVF,    VF(380)
13      COMMON /IBW/     PBW,    BW(380)
14      COMMON /IBH/     PBH,    BH(380)
15      COMMON /IBV/     PBV,    BV(380)
16      COMMON /IBWH/    PBWH,   BWH(380)
17      COMMON /IBWV/    PBWV,   BWV(380)
18      COMMON /IBWHV/   PBWHV,  BWHV(380)
19      COMMON /IPOWER/  PPOWER, POWER(200)
20      COMMON /IDWASH/  PDWASH, DWASH(60)
21C
22      LOGICAL PBODY, PWING, PHT, PVT, PVF, PBW, PBH, PBV, PBWH, PBWV,
23     1        PBWHV, PPOWER, PDWASH
24C
25C***  INPUT DATA BLOCKS
26C
27      COMMON /FLGTCD/ FLC(160)
28      COMMON /OPTION/ XX(4)
29      COMMON /SYNTSS/ XCG, XW, ZW, ALIW, ZCG, XH, ZH, ALIH, XV,
30     1                VERTUP, HINAX, XVF, SCALE, ZV, ZVF, YV, YF,
31     2                PHIV, PHIF
32      COMMON /BODYI/  BODYIN(129)
33      COMMON /WINGI/  WINGIN(101)
34      COMMON /VTI/    VTIN(154), TVTIN(8), VFIN(154)
35      COMMON /HTI/    HTIN(154)
36      COMMON /POWER/  PWIN(29), LBIN(21)
37      COMMON /FLAPIN/ F(138)
38C
39C***  COMPUTATIONAL BLOCKS
40C
41      COMMON /WINGD/  A(195), B(49)
42      COMMON /SBETA/  STB(135), TRA(108), TRAH(108), STBH(135)
43      COMMON /BDATA/  BD(762)
44      COMMON /WHWB/   FACT(182), WB(39), HB(39)
45      COMMON /WBHCAL/ WBT(156)
46      COMMON /HTDATA/ AHT(195), BHT(49)
47      COMMON /VTDATA/ AVT(195), AVF(195)
48      COMMON /WHAERO/ C(51), D(55), CHT(51), DHT(55), DVT(55), DVF(55)
49      COMMON /POWR/   PW(315)
50      COMMON /SUPWBB/  SWB(61), SHB(61)
51      COMMON /SUPDW/  DWA(237)
52      COMMON /SUPWH/  GR(303)
53      COMMON /SUPBOD/ SBD(229)
54      COMMON /LEVEL2/ SECOND(23)
55C
56      COMMON /CONSNT/CONST(4)
57      EQUIVALENCE (CONST(3),UNUSED),(DONE,SECOND(15)),(DOL2,SECOND(16))
58      LOGICAL BLF,ROUNDN,VERTUP,DONE,DOL2
59      REAL LBIN
60      DIMENSION X(19)
61      EQUIVALENCE (BLF,LBIN(14)),(ROUNDN,LBIN(17)),(X(1),XCG)
62C
63C     ----FIX WITH ENTRIES TO INITIALIZE DIFFERENT PARTS
64C
65      DO 1000 I=1,195
66 1000 A(I)=UNUSED
67      DO 1010 I=1,49
68 1010 B(I) = UNUSED
69      DO 1020 I=1,51
70 1020 C(I)=UNUSED
71      DO 1030 I=1,55
72 1030 D(I)=UNUSED
73      DO 1040 I=1,762
74 1040 BD(I)=UNUSED
75      DO 1050 I=1,39
76      HB(I)=UNUSED
77 1050 WB(I)=UNUSED
78      DO 1060 I=1,4
79 1060 XX(I)=UNUSED
80      DO 1070 I=1,19
81      IF(I .NE. 10)X(I)=UNUSED
82 1070 CONTINUE
83      VERTUP=.TRUE.
84      DO 1080 I=1,160
85 1080 FLC(I)=UNUSED
86      DO 1090 I=1,182
87 1090 FACT(I)=UNUSED
88      DO 1100 I=1,156
89 1100 WBT(I)=UNUSED
90      DO 1110 I=1,49
91 1110 BHT(I)=UNUSED
92      DO 1120 I=1,195
93      AVF(I)=UNUSED
94 1120 AVT(I)=UNUSED
95      DO 1130 I=1,195
96 1130 AHT(I)=UNUSED
97      DO 1140 I=1,315
98 1140 PW(I)=UNUSED
99      DO 1170 I=1,51
100 1170 CHT(I)=UNUSED
101      DO 1180 I=1,55
102 1180 DHT(I)=UNUSED
103      DO 1190 I=1,55
104      DVF(I)=UNUSED
105 1190 DVT(I)=UNUSED
106      DO 1200 I=1,135
107      STBH(I)=UNUSED
108 1200 STB(I)=UNUSED
109      DO 1210 I=1,229
110 1210 SBD(I)=UNUSED
111      DO 1215 I=1,23
112 1215 SECOND(I)=UNUSED
113      DO 1220 I=1,303
114 1220 GR(I)=UNUSED
115      DO 1230 I=1,61
116      SHB(I)=UNUSED
1171230  SWB(I)=UNUSED
118      DO 1240 I=1,29
119 1240 PWIN(I)=UNUSED
120      DO 1250 I=1,237
121 1250 DWA(I)=UNUSED
122      DO 1260 I=1,129
123 1260 BODYIN(I)=UNUSED
124      DO 1270 I=1,101
125 1270 WINGIN(I)=UNUSED
126      WINGIN(7) = 0.
127      WINGIN(8) = 0.
128      DO 1280 I=1,108
129      TRAH(I)=UNUSED
130 1280 TRA(I)=UNUSED
131      DO 1290 I=1,138
132 1290 F(I)=UNUSED
133      DO 1300 I=1,154
134      HTIN(I) = UNUSED
135      VTIN(I) = UNUSED
136      VFIN(I) = UNUSED
137      IF(I .GT. 21) GO TO 1300
138      LBIN(I) = UNUSED
139      IF(I .GT. 8) GO TO 1300
140      TVTIN(I) = UNUSED
141 1300 CONTINUE
142      VTIN(7) = 0.
143      VTIN(8) = 0.
144      VFIN(7) = 0.
145      VFIN(8) = 0.
146      HTIN(7) = 0.
147      HTIN(8) = 0.
148      BLF=.FALSE.
149      ROUNDN=.FALSE.
150      CALL ZERANG(A(106))
151      CALL ZERANG(A(112))
152      CALL ZERANG(A(138))
153      CALL ZERANG(AHT(106))
154      CALL ZERANG(AVT(106))
155      CALL ZERANG(AVF(106))
156      CALL ZERANG(AHT(112))
157      CALL ZERANG(AVT(112))
158      CALL ZERANG(AVF(112))
159      CALL ZERANG(AHT(138))
160      CALL ZERANG(AVT(138))
161      CALL ZERANG(AVF(138))
162      CALL ZERANG(A(153))
163      CALL ZERANG(A(147))
164      CALL ZERANG(AHT(153))
165      CALL ZERANG(AHT(147))
166      CALL ZERANG(AVT(153))
167      CALL ZERANG(AVT(147))
168      CALL ZERANG(AVF(153))
169      CALL ZERANG(AVF(147))
170      DO 1310 I=1,400
171         BODY(I)=UNUSED
172 1310 WING(I)=UNUSED
173      DO 1320 I=1,380
174      HT(I)=UNUSED
175      VT(I)=UNUSED
176      VF(I)=UNUSED
177      BW(I)=UNUSED
178      BH(I)=UNUSED
179      BV(I)=UNUSED
180      BWH(I)=UNUSED
181      BWV(I)=UNUSED
182 1320 BWHV(I)=UNUSED
183      DO 1330 I=1,200
184 1330 POWER(I)=UNUSED
185      DO 1340 I=1,60
186 1340 DWASH(I)=UNUSED
187      PBODY=.FALSE.
188      PWING=.FALSE.
189      PHT=.FALSE.
190      PVT=.FALSE.
191      PVF=.FALSE.
192      PBW=.FALSE.
193      PBH=.FALSE.
194      PBV=.FALSE.
195      PBWH=.FALSE.
196      PBWV=.FALSE.
197      PBWHV=.FALSE.
198      PPOWER=.FALSE.
199      PDWASH=.FALSE.
200      DONE=.FALSE.
201      DOL2=.FALSE.
202      RETURN
203      END
204