1 SUBROUTINE M08O10 2C 3C*** EXEC FOR OVERLAY 8, SUBSONIC VERTICAL TAIL DRAG 4C 5 COMMON /IVT/ PVT, VT(380) 6 COMMON /IVF/ PVF, VF(380) 7 COMMON /VTDATA/ AVT(195), AVF(195) 8 COMMON /WHAERO/ C(51), D(55), CHT(51), DHT(55), DVT(55), DVF(55) 9 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND 10 COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF,LF,K,NOVLY 11 COMMON /FLOLOG/ 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 16C 17 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 18 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON, 19 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 20 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 21 4 VFPL,VFSC,CTAB 22C 23 NOVLY=8 24 IF(VTPL) CALL VTDRAG(I) 25 IF(VFPL) CALL VFDRAG(I) 26C 27C SETUP VT IOM 28C 29 VT(1) = DVT(20) 30 VT(21) = 0.0 31 VT(41) = 0.0 32 VT(61) = 0.0 33 VT(101) = 0.0 34 VT(121) = 0.0 35 DO 1010 J=2,NALPHA 36 VT(J) = -UNUSED 37 VT(J+20) = -UNUSED 38 VT(J+40) = -UNUSED 39 VT(J+60) = -UNUSED 40 VT(J+80) = -UNUSED 41 VT(J+100) = -UNUSED 42 VT(J+120) = -UNUSED 43 1010 CONTINUE 44C 45C SETUP VF IOM 46C 47 VF(1) = DVF(20) 48 VF(21) = 0.0 49 VF(41) = 0.0 50 VF(61) = 0.0 51 VF(101) = 0.0 52 VF(121) = 0.0 53 DO 1020 J=2,NALPHA 54 VF(J) = -UNUSED 55 VF(J+20) = -UNUSED 56 VF(J+40) = -UNUSED 57 VF(J+60) = -UNUSED 58 VF(J+80) = -UNUSED 59 VF(J+100) = -UNUSED 60 VF(J+120) = -UNUSED 61 1020 CONTINUE 62 RETURN 63 END 64