1 SUBROUTINE M10O12 2C 3C*** EXEC FOR OVERLAY 10, SUBSONIC WING-BODY-TAIL AERO 4C 5 COMMON /IVT/ PVT, VT(380) 6 COMMON /IVF/ PVF, VF(380) 7 COMMON /IBW/ PBW, BW(380) 8 COMMON /IBWH/ PBWH, BWH(380) 9 COMMON /IBWV/ PBWV, BWV(380) 10 COMMON /IBWHV/ PBWHV, BWHV(380) 11 COMMON /IDWASH/ PDWASH, DWASH(60) 12 COMMON /FLGTCD/ FLC(160) 13 COMMON /WINGI/ WINGIN(101) 14 COMMON /HTI/ HTIN(154) 15 COMMON /HTDATA/ AHT(195), BHT(49) 16 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND 17 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF,LF,K,NOVLY 18 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 19 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 20 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 21 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 22 4 VFPL,VFSC,CTAB 23C 24 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 25 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 26 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 27 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 28 4 VFPL,VFSC,CTAB,FOUND 29C 30 DIMENSION CR(6), DR(6), ROUTID(2) 31 DATA ROUTID / 4HM10O, 4H12 / 32C 33 NOVLY=10 34 CALL EXSUBT 35 IF(.NOT. HTPL) GO TO 1000 36 CALL WGEOTL 37 CALL WBTAIL 38C 39C CALCULATE B-W-H CN, CA, CLA, AND CMA 40C 41 1000 IN = 0 42 IM = 0 43 NLA=NALPHA 44 FOUND=.FALSE. 45 DO 1010 J=1,NALPHA 46 IF(BW(J+40) .NE. 2.*UNUSED .OR. FOUND)GO TO 1010 47 NLA=J-1 48 FOUND=.TRUE. 49 1010 CONTINUE 50 DO 1040 J=1,NALPHA 51 CA = COS(FLC(J+22)/RAD) 52 SA = SIN(FLC(J+22)/RAD) 53 IF(.NOT. HTPL) GO TO 1020 54 BWH(J+60) = BWH(J+20)*CA + BWH(J)*SA 55 BWH(J+80) = BWH(J)*CA - BWH(J+20)*SA 56 IF(J .EQ. 1) GO TO 1020 57 CALL TBFUNX(FLC(J+22),X,BWH(J+100),NALPHA,FLC(23),BWH(21), 58 1 CR,IN,MI,NG,0,0,4HCLA ,1,ROUTID) 59 CALL TBFUNX(FLC(J+22),X,BWH(J+120),NLA,FLC(23),BWH(41), 60 1 DR,IM,MI,NG,0,0,4HCMA ,1,ROUTID) 61 IF(J .GT. NLA) BWH(J+120)=2.*UNUSED 62 1020 CONTINUE 63C 64C CALCULATE B-W-V DATA 65C 66 BWV(J) = BW(J) + VT(1) + VF(1) 67 BWV(J+20) = BW(J+20) 68 BWV(J+40) = BW(J+40) 69 BWV(J+60) = BWV(J+20)*CA + BWV(J)*SA 70 BWV(J+80) = BWV(J)*CA - BWV(J+20)*SA 71 BWV(J+100) = BW(J+100) 72 BWV(J+120) = BW(J+120) 73 IF(.NOT. HTPL) GO TO 1030 74C 75C CALCULATE B-W-H-V DATA 76C 77 BWHV(J+20) = BWH(J+20) 78 BWHV(J+40) = BWH(J+40) 79 BWHV(J+60) = BWHV(J+20)*CA + BWHV(J)*SA 80 BWHV(J+80) = BWHV(J)*CA - BWHV(J+20)*SA 81 BWHV(J+100) = BWH(J+100) 82 BWHV(J+120) = BWH(J+120) 83 1030 IF(BW(J) .NE. -UNUSED) GO TO 1040 84 BWV(J ) = -UNUSED 85 BWV(J+60) = -UNUSED 86 BWV(J+80) = -UNUSED 87 BWH(J ) = -UNUSED 88 BWH(J+60) = -UNUSED 89 BWH(J+80) = -UNUSED 90 BWHV(J ) = -UNUSED 91 BWHV(J+60) = -UNUSED 92 BWHV(J+80) = -UNUSED 93 1040 CONTINUE 94 RETURN 95 END 96