1 SUBROUTINE MAIN01 2C 3C*** DIGITAL DATCOM SUBSONIC AERO EXECUTIVE 4C 5C*** IDEAL OUTPUT MATRIX 6C 7C BLOCK PRINT IOM 8C NAME FLAG ARRAY 9C 10 COMMON /IBODY/ PBODY, BODY(400) 11 COMMON /IWING/ PWING, WING(400) 12 COMMON /IHT/ PHT, HT(380) 13 COMMON /IVT/ PVT, VT(380) 14 COMMON /IVF/ PVF, VF(380) 15 COMMON /IBW/ PBW, BW(380) 16 COMMON /IBH/ PBH, BH(380) 17 COMMON /IBV/ PBV, BV(380) 18 COMMON /IBWH/ PBWH, BWH(380) 19 COMMON /IBWV/ PBWV, BWV(380) 20 COMMON /IBWHV/ PBWHV, BWHV(380) 21 COMMON /IPOWER/ PPOWER, POWER(200) 22 COMMON /IDWASH/ PDWASH, DWASH(60) 23C 24 LOGICAL PBODY, PWING, PHT, PVT, PVF, PBW, PBH, PBV, PBWH, PBWV, 25 1 PBWHV, PPOWER, PDWASH 26C 27C*** INPUT DATA BLOCKS 28C 29 COMMON /FLGTCD/ FLC(160) 30 COMMON /OPTION/ SREF, CBARR, ROUGFC, BLREF 31 COMMON /SYNTSS/ XCG, XW, ZW, ALIW, ZCG, XH, ZH, ALIH, XV, 32 1 VERTUP, HINAX, XVF, SCALE, ZV, ZVF, YV, YF, 33 2 PHIV, PHIF 34 COMMON /BODYI/ BODYIN(128) 35 COMMON /WINGI/ WINGIN(101) 36 COMMON /VTI/ VTIN(154), TVTIN(8), VFIN(154) 37 COMMON /HTI/ HTIN(154) 38 COMMON /POWER/ PWIN(29), LBIN(21) 39 COMMON /FLAPIN/ F(116) 40C 41 DIMENSION ZL(20) 42 EQUIVALENCE (ZL(1),BODYIN(102)) 43 LOGICAL VERTUP 44C 45C*** COMPUTATIONAL BLOCKS 46C 47 COMMON /WINGD/ A(195), B(49) 48 COMMON /SBETA/ STB(135), TRA(108), TRAH(108), STBH(135) 49 COMMON /BDATA/ BD(762) 50 COMMON /WHWB/ FACT(182), WB(39), HB(39) 51 COMMON /WBHCAL/ WBT(156) 52 COMMON /HTDATA/ AHT(195), BHT(49) 53 COMMON /VTDATA/ AVT(195), AVF(195) 54 COMMON /WHAERO/ C(51), D(55), CHT(51), DHT(55), DVT(55) 55 COMMON /POWR/ PW(315) 56 COMMON /SUPWBB/ SWB(61), SHB(61) 57 COMMON /SUPDW/ DWA(237) 58 COMMON /SUPWH/ GR(303) 59 COMMON /SUPBOD/ SBD(229) 60C 61C 62C*** CONTROL DATA BLOCKS 63C 64 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND 65 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF 66 COMMON /CASEID/ IDCASE(74),KOUNT,NAMSV(100) 67 COMMON /EXPER/ KLIST, NLIST(100), NNAMES, IMACH, MDATA, 68 1 KBODY, KWING, KHT, KVT, KWB, KDWASH(3), 69 2 ALPOW, ALPLW, ALPOH, ALPLH 70 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 71 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 72 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 73 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 74 4 VFPL,VFSC,CTAB 75 COMMON /ERROR/ IERR,GONOGO,IEND,DMPALL,DPB,DPA,DPBD,DPAVF, 76 1 DPFACT,DPWBT,DPBHT,DPAVT,DPAHT,DPC,DPD,DPWB, 77 2 DPCHT,DPDHT,DPDYNH,SAVE,DMPCSE,DPDVT,DPGR,DPLB, 78 3 DPPW,DPSTB,DPSBD,DPSLG,DPSWB,DPSTP,DPDWA,DPSTG, 79 4 DPSLA,DPTRA,DPEXPD,DPDVF,DPFLP,DPFHG,DPFCM,DPTCD, 80 5 DPFLA,DPTRM,DPSPR,DPTRN,DPTRM2,DPHYP,DPDYN,DPJET, 81 6 DPHB,DPSHB,DPTRAH,DPSTBH,DPSEC,DPSLAH,DPINPT, 82 7 DPFLC,DPOPTN,DPSYN,DPBDIN,DPWGIN,DPVTIN,DPTVT, 83 8 DPVFIN,DPHTIN,DPPWIN,DPLBIN,DPF,DPIOM, 84 9 DPIBDY,DPIWG,DPIHT,DPIVT,DPIVF,DPIBW,DPIBH,DPIBV, 85 A DPIBWH,DPIBWV,DPITOT,DPIPWR,DPIDWH 86C 87 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 88 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 89 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 90 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 91 4 VFPL,VFSC,CTAB 92 LOGICAL IERR,GONOGO,IEND,DMPALL,DPB,DPA,DPBD,DPAVF, 93 1 DPFACT,DPWBT,DPBHT,DPAVT,DPAHT,DPC,DPD,DPWB, 94 2 DPCHT,DPDHT,DPDYNH,SAVE,DMPCSE,DPDVT,DPGR,DPLB, 95 3 DPPW,DPSTB,DPSBD,DPSLG,DPSWB,DPSTP,DPDWA,DPSTG, 96 4 DPSLA,DPTRA,DPEXPD,DPDVF,DPFLP,DPFHG,DPFCM,DPTCD, 97 5 DPFLA,DPTRM,DPSPR,DPTRN,DPTRM2,DPHYP,DPDYN,DPJET, 98 6 DPHB,DPSHB,DPTRAH,DPSTBH,DPSEC,DPSLAH,DPINPT, 99 7 DPFLC,DPOPTN,DPSYN,DPBDIN,DPWGIN,DPVTIN,DPTVT, 100 8 DPVFIN,DPHTIN,DPPWIN,DPLBIN,DPF,DPIOM, 101 9 DPIBDY,DPIWG,DPIHT,DPIVT,DPIVF,DPIBW,DPIBH,DPIBV, 102 A DPIBWH,DPIBWV,DPITOT,DPIPWR,DPIDWH 103C 104 LOGICAL FLAG, KDWASH 105 DATA STRA/4HSTRA/ 106C 107C*** INITALIZE IOM AND COMPUTATIONAL ARRAYS 108C 109 IG = 1 110 CALL M51O63 111 CALL EXSUBT 112C 113C*** SET REYNOLDS NO., CLALPA, AND CLMAX IN A-ARRAYS 114C 115 A(131) = WINGIN(I+20) 116 AHT(131) = HTIN(I+20) 117 AVT(131) = VTIN(I+20) 118 AVF(131) = VFIN(I+20) 119 A(132) = WINGIN(I+40) 120 AHT(132) = HTIN(I+40) 121 AVT(132) = VTIN(I+40) 122 AVF(132) = VFIN(I+40) 123C 124C*** SINGLE COMPONENT AERO - BODY, WING, HT, AND VT 125C 126 IF(.NOT. BO) GO TO 1010 127 FLAG = (ZL(1) .EQ. UNUSED) .OR. (BODYIN(128) .GT. 1.50) 128 IF(.NOT. FLAG) CALL M04O04 129 IF( FLAG ) CALL M06O06 130 1010 CONTINUE 131 IF(.NOT. WGPL) GO TO 1020 132 CALL M15O17 133 CALL M03O03 134 CALL M31O37 135 BD(69) = C(6)*A(10) 136 BD(70) = BD(68)-BD(69)*BD(78)-BD(82) 137 BD(71) = BD(67)-BD(69)*BD(79) 138 BD(72) = (BD(71)+BD(70)*BD(80))*BD(79) 139 BD(73) = (BD(70)/BD(79))-(BD(71)+BD(70)*BD(80))*BD(78) 140 1020 CONTINUE 141 IF(.NOT. HTPL) GO TO 1030 142 CALL M16O20 143 CALL M05O05 144 CALL M33O41 145 1030 CONTINUE 146 IF(VTPL .OR. VFPL) CALL M08O10 147 CALL EXSUBT 148C 149C*** CALCULATE B-W, B-H, AND B-V DATA 150C 151 FLAG = BO .AND. (WGPL .OR. HTPL .OR. VTPL .OR. VFPL) 152 BD(83) = A(161) + XW 153 IF(FLAG) CALL M07O07 154 IF(FLAG) CALL EXSUBT 155C 156C*** CALCULATE B-W-H, B-W-V, AND B-W-H-V 157C 158 FLAG = BO .AND. WGPL .AND. (HTPL .OR. VTPL .OR. VFPL) 159 IF(.NOT. FLAG) GO TO 1060 160 FLAG = (KDWASH(1) .AND. KDWASH(2) .AND. KDWASH(3)) .OR. 161 1 (WINGIN(15) .EQ. STRA) 162 IF(.NOT. FLAG) GO TO 1040 163 IF(WINGIN(15) .EQ. STRA .AND. HTPL) 164 1 CALL M09O11 165 CALL M10O12 166 1040 CONTINUE 167 IF( FLAG) GO TO 1050 168 BUILD = .TRUE. 169 PART = .TRUE. 170 1050 CONTINUE 171 1060 CONTINUE 172C 173C*** LATERAL STABILITY DERIVATIVES AND POWER EFFECTS 174C 175 CALL M29O35 176 CALL M17O21 177 IF(NF .LT. 0) GO TO 1080 178 IF(PRPOWR) CALL M13O15 179 IF(JETPOW) CALL M30O36 180 CALL M49O61 181C 182C*** DYNAMIC STABILITY 183C 184 IF(.NOT. DAMP) GO TO 1070 185 IG = 3 186 CALL M51O63 187 IF(WGPL) CALL M43O53 188 IF(WGPL .OR. HTPL) CALL M45O55 189 CALL M46O56 190 1070 CONTINUE 191C 192C*** PRINT DATA, RETURN TO MAIN00 193C 194 CALL M12O14 195 1080 CONTINUE 196 RETURN 197 END 198