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