1      SUBROUTINE M10O12
2C
3C***  EXEC FOR OVERLAY 10, SUBSONIC WING-BODY-TAIL AERO
4C
5      COMMON /IVT/    PVT,    VT(380)
6      COMMON /IVF/    PVF,    VF(380)
7      COMMON /IBW/    PBW,    BW(380)
8      COMMON /IBWH/   PBWH,   BWH(380)
9      COMMON /IBWV/   PBWV,   BWV(380)
10      COMMON /IBWHV/  PBWHV,  BWHV(380)
11      COMMON /IDWASH/ PDWASH, DWASH(60)
12      COMMON /FLGTCD/ FLC(160)
13      COMMON /WINGI/  WINGIN(101)
14      COMMON /HTI/    HTIN(154)
15      COMMON /HTDATA/ AHT(195), BHT(49)
16      COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND
17      COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF,LF,K,NOVLY
18      COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC,
19     1                HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON,
20     2                TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP,
21     3                HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART,
22     4                VFPL,VFSC,CTAB
23C
24      LOGICAL  FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC,
25     1         HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON,
26     2         TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP,
27     3         HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART,
28     4         VFPL,VFSC,CTAB,FOUND
29C
30      DIMENSION CR(6), DR(6), ROUTID(2)
31      DATA ROUTID / 4HM10O, 4H12   /
32C
33      NOVLY=10
34      CALL EXSUBT
35      IF(.NOT. HTPL) GO TO 1000
36      CALL WGEOTL
37      CALL WBTAIL
38C
39C     CALCULATE  B-W-H  CN, CA, CLA, AND CMA
40C
41 1000 IN = 0
42      IM = 0
43      NLA=NALPHA
44      FOUND=.FALSE.
45      DO 1010 J=1,NALPHA
46         IF(BW(J+40) .NE. 2.*UNUSED .OR. FOUND)GO TO 1010
47         NLA=J-1
48         FOUND=.TRUE.
49 1010 CONTINUE
50      DO 1040 J=1,NALPHA
51         CA = COS(FLC(J+22)/RAD)
52         SA = SIN(FLC(J+22)/RAD)
53         IF(.NOT. HTPL) GO TO 1020
54         BWH(J+60) = BWH(J+20)*CA + BWH(J)*SA
55         BWH(J+80) = BWH(J)*CA - BWH(J+20)*SA
56         IF(J .EQ. 1) GO TO 1020
57         CALL TBFUNX(FLC(J+22),X,BWH(J+100),NALPHA,FLC(23),BWH(21),
58     1               CR,IN,MI,NG,0,0,4HCLA ,1,ROUTID)
59         CALL TBFUNX(FLC(J+22),X,BWH(J+120),NLA,FLC(23),BWH(41),
60     1               DR,IM,MI,NG,0,0,4HCMA ,1,ROUTID)
61         IF(J .GT. NLA) BWH(J+120)=2.*UNUSED
62 1020    CONTINUE
63C
64C     CALCULATE  B-W-V  DATA
65C
66         BWV(J) = BW(J) + VT(1) + VF(1)
67         BWV(J+20) = BW(J+20)
68         BWV(J+40) = BW(J+40)
69         BWV(J+60) = BWV(J+20)*CA + BWV(J)*SA
70         BWV(J+80) = BWV(J)*CA - BWV(J+20)*SA
71         BWV(J+100) = BW(J+100)
72         BWV(J+120) = BW(J+120)
73         IF(.NOT. HTPL) GO TO 1030
74C
75C     CALCULATE  B-W-H-V  DATA
76C
77         BWHV(J+20) = BWH(J+20)
78         BWHV(J+40) = BWH(J+40)
79         BWHV(J+60) = BWHV(J+20)*CA + BWHV(J)*SA
80         BWHV(J+80) = BWHV(J)*CA - BWHV(J+20)*SA
81         BWHV(J+100) = BWH(J+100)
82         BWHV(J+120) = BWH(J+120)
83 1030    IF(BW(J) .NE. -UNUSED) GO TO 1040
84         BWV(J   ) = -UNUSED
85         BWV(J+60) = -UNUSED
86         BWV(J+80) = -UNUSED
87         BWH(J   ) = -UNUSED
88         BWH(J+60) = -UNUSED
89         BWH(J+80) = -UNUSED
90         BWHV(J   ) = -UNUSED
91         BWHV(J+60) = -UNUSED
92         BWHV(J+80) = -UNUSED
93 1040 CONTINUE
94      RETURN
95      END
96