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