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