1      SUBROUTINE M14O16
2C
3C***  EXEC FOR OVERLAY 14, LOW ASPECT RATIO AERO
4C
5      COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY
6      COMMON /CONSNT/ CONST(4)
7      COMMON /IBW/    PBW,BW(380)
8      COMMON /FLGTCD/ FLC(93)
9      DIMENSION CR(6), DR(6), ROUTID(2)
10      EQUIVALENCE     (CONST(4),RAD)
11      DATA ROUTID / 4HM14O, 4H16   /
12      NOVLY=14
13      CALL LOARWB
14C
15C     CALCULATE CN, CA, CLA, AND CMA INCREMENTS
16C
17      IN = 0
18      IM = 0
19      DO 1000 J=1,NALPHA
20         CA = COS(FLC(J+22)/RAD)
21         SA = SIN(FLC(J+22)/RAD)
22         BW(J+60) = BW(J+20)*CA + BW(J)*SA
23         BW(J+80) = BW(J)*CA - BW(J+20)*SA
24         CALL TBFUNX(FLC(J+22),X,BW(J+100),NALPHA,FLC(23),BW(21),
25     1               CR,IN,MI,NG,0,0,4HCLA ,1,ROUTID)
26         CALL TBFUNX(FLC(J+22),X,BW(J+120),NALPHA,FLC(23),BW(41),
27     1               DR,IM,MI,NG,0,0,4HCMA ,1,ROUTID)
28 1000 CONTINUE
29      RETURN
30      END
31