1 SUBROUTINE M36O44 2C 3C*** EXEC FOR OVERLAY 36, FLAP LIFT AND HINGE MOMENTS 4C 5 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY 6 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 7 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 8 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 9 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 10 4 VFPL,VFSC,CTAB 11 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 12 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 13 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 14 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 15 4 VFPL,VFSC,CTAB 16 COMMON /FLAPIN/ F(69) 17 COMMON /IWING/ PWING, WING(400) 18 COMMON /CONSNT/ PI,DEG,UNUSED,RAD 19 NOVLY=36 20 CALL LIFTFP 21 IF(TRANSN)RETURN 22 IF(F(17).EQ.1.0.OR.F(17).EQ.5.0)CALL HINGE 23 DO 1010 J=2,10 24 1010 WING(J+250) = -UNUSED 25 IF(CTAB) CALL CTABS 26 RETURN 27 END 28