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