1 SUBROUTINE M33O41 2C 3C** EXEX FOR OVERLAY 33, SUBSONIC HORIZONTAL TAIL CM 4C 5 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY 6 COMMON /CONSNT/ PI,DEG,UNUSED,RAD 7 COMMON /HTDATA/ AHT(195),BHT(49) 8 COMMON /WHAERO/ C(51),D(55),CHT(51) 9 COMMON /IHT/ PHT, HT(380) 10 COMMON /HTI/ HTIN(154) 11 COMMON /FLGTCD/ FLC(95) 12 COMMON /EXPER/ KK(106),KHT 13 DIMENSION C1(6), C3(6), ROUTID(2) 14 LOGICAL FLAG,KHT 15 DATA ROUTID / 4HM33O, 4H41 / 16 DATA STRA/ 4HSTRA / 17 NOVLY=33 18 CALL CMALPH(AHT,BHT,CHT,HTIN,HT) 19 CALL CACALC(BHT,HT) 20 CALL EXSUBT 21 IN = 0 22 CLA=HT(101) 23 CMA=HT(121) 24 IM = 0 25 DO 1010 J=1,NALPHA 26 CA = COS(FLC(J+22)/RAD) 27 SA = SIN(FLC(J+22)/RAD) 28 HT(J+60) = HT(J+20)*CA + HT(J)*SA 29 HT(J+80) = HT(J)*CA - HT(J+20)*SA 30 CALL TBFUNX(FLC(J+22),X,HT(J+100),NALPHA,FLC(23),HT(21), 31 1 C1,IN,MI,NG,0,0,4HCLA ,1,ROUTID) 32 CALL TBFUNX(FLC(J+22),X,HT(J+120),NALPHA,FLC(23),HT(41), 33 1 C3,IM,MI,NG,0,0,4HCMA ,1,ROUTID) 34 1010 CONTINUE 35 IN=0 36 IM=0 37 IF(KHT)CALL TBFUNX(0.,X,CLA,NALPHA,FLC(23),HT(21),C1,IN,MI,NG, 38 1 0,0,4HCLAH,1,ROUTID) 39 IF(KHT)CALL TBFUNX(0.,X,CMA,NALPHA,FLC(23),HT(41),C1,IM,MI,NG, 40 1 0,0,4HCMAH,1,ROUTID) 41C 42C*** IF THE H.T. LIFT DEVIATES FROM THE LINEAR VALUE BY 43C*** 7.5 PERCENT OR MORE SET CM AND CMA TO NA (2*UNUSED) 44C 45 IF(AHT(7) .LE. (6./AHT(124)) .AND. HTIN(15) .EQ. STRA) GO TO 1030 46 IF(KHT) GO TO 1030 47 FLAG=.FALSE. 48 DO 1020 J=2,NALPHA 49 DEL = 100.*ABS(HT(J+100)/HT(101)-1.0) 50 IF(DEL .GT. 7.5) FLAG=.TRUE. 51 IF(FLAG) HT(J+40) = 2.0*UNUSED 52 IF(FLAG) HT(J+120)=2.0*UNUSED 53 1020 CONTINUE 54 HT(101)=CLA 55 HT(121)=CMA 56 1030 CONTINUE 57 RETURN 58 END 59