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