1      SUBROUTINE M37O45
2C
3C***  EXEC FOR OVERLAY 37, FLAP PITCHING MOMENTS
4C
5      DIMENSION BOC(4)
6      LOGICAL ASYFP
7      COMMON /CONSNT/ PI,DR,UNUSED,RAD
8      COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IJKDUM(4),NOVLY
9      COMMON /HTDATA/ AHT(195)
10      COMMON /FLOLOG/ X(20),ASYFP
11      COMMON /FLGTCD/ FLC(93)
12      COMMON /FLAPIN/ F(69)
13      NOVLY=37
14      IF(ASYFP.AND.(F(18).EQ.5.))GO TO 1000
15      CALL FLAPCM
16      RETURN
17 1000 RACH=FLC(I+2)
18      BETA=SQRT(1.-RACH**2)
19      ARG=AHT(68)/BETA
20      SB=ATAN(ARG)*RAD
21      CALL GDELTA(GDF,GDI,GDO,ETI,ETO,BOC,SB)
22      RETURN
23      END
24