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