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