1      SUBROUTINE M38O46
2C
3C***  EXEC FOR OVERLAY 38, SUBSONIC FLAP DRAG AND TRIM AERO
4C
5      LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC,
6     1        HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON,
7     2        TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM
8      COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC,
9     1                HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON,
10     2                TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM
11      COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,IJKDUM(3),NOVLY
12      COMMON /FLAPIN/ F(69)
13      COMMON /CONSNT/ CONST(4)
14      COMMON /IWING/  PWING, WING(400)
15      COMMON /IVT/    PVT, VT(380)
16      COMMON /WINGI/  WINGIN(101)
17      COMMON /HTI/    HTIN(131)
18      EQUIVALENCE (CONST(3),UNUSED)
19      NOVLY=38
20      IF(TRIM.AND.HTPL.AND.(.NOT.SYMFP ))GO TO 1010
21      IF(F(17).LE.6.)CALL DRAGFP
22      IF(TRIM)CALL TRIMRT
23      VT(301) = WING(251)
24      DO 1000 J=2,NALPHA
25 1000 VT(J+300) = -UNUSED
26      RETURN
27C
28C     ---- IF CANARD, RETURN
29C
30 1010 IF(WINGIN(101).GT.2.0) RETURN
31      CALL TRIMR2
32      VT(301) = WING(251)
33      DO 1020 J=2,NALPHA
34 1020 VT(J+300) = -UNUSED
35      RETURN
36      END
37