1      SUBROUTINE M17O21
2C
3C***  EXEC FOR OVERLAY 17, SUBSONIC LATERAL STABILITY
4C
5      COMMON /IBODY/   PBODY,  BODY(400)
6      COMMON /IWING/   PWING,  WING(400)
7      COMMON /IHT/     PHT,    HT(380)
8      COMMON /IVT/     PVT,    VT(380)
9      COMMON /IVF/     PVF,    VF(380)
10      COMMON /IBW/     PBW,    BW(380)
11      COMMON /IBH/     PBH,    BH(380)
12      COMMON /IBV/     PBV,    BV(380)
13      COMMON /IBWH/    PBWH,   BWH(380)
14      COMMON /IBWV/    PBWV,   BWV(380)
15      COMMON /IBWHV/   PBWHV,  BWHV(380)
16C
17      COMMON /WINGI/  WINGIN(101)
18      COMMON /VTI/    VTIN(154), TVTIN(8), VFIN(154)
19      COMMON /HTI/    HTIN(154)
20      COMMON /WINGD/  A(195), B(49)
21      COMMON /SBETA/  STB(135), TRA(108), TRAH(108), STBH(135)
22      COMMON /HTDATA/ AHT(195), BHT(49)
23      COMMON /VTDATA/ AVT(195), AVF(195)
24      COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND
25      COMMON /OVERLY/ NLOG,NMACH,I,NALPHA,IG,NF,LF,K,NOVLY
26      COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC,
27     1                HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON,
28     2                TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP,
29     3                HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART,
30     4                VFPL,VFSC,CTAB
31C
32      LOGICAL  FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC,
33     1         HEAD,PRPOWR,JETPOW,LOASRT,TVTPAN,SUPERS,SUBSON,
34     2         TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP,
35     3         HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART,
36     4         VFPL,VFSC,CTAB
37      LOGICAL  FLAG, TEST
38C
39      NOVLY=17
40      FLAG = .FALSE.
41      TEST = WGPL .OR. VTPL .OR. TVTPAN
42      IF(TEST) CALL SUBLAT(STB,WING,WINGIN,BW,A,B,AHT,
43     1                     AVT,VT,VTIN,VTPL,TVTPAN,HTPL,WGPL,0)
44      TEST = HTPL .OR. VFPL
45      IF(TEST) CALL SUBLAT(STBH,HT,HTIN,BH,AHT,BHT,AHT,
46     1                     AVF,VF,VFIN,VFPL,FLAG,FLAG,HTPL,1)
47C
48C     SET IOM VALUES FOR CYB, CNB, AND CLB
49C
50      DO 1050 J=1,NALPHA
51C
52C     VT DATA
53C
54         IF(J .EQ. 1) GO TO 1000
55         VT(J+140) = -UNUSED
56         VT(J+160) = -UNUSED
57         VF(J+140) = -UNUSED
58         VF(J+160) = -UNUSED
59C
60C     B-W  DATA
61C
62         BW(J+140) = -UNUSED
63         BW(J+160) = -UNUSED
64C
65C     B-H  DATA
66C
67         BH(J+140) = -UNUSED
68         BH(J+160) = -UNUSED
69 1000    CONTINUE
70C
71C     B-V  DATA
72C
73         BV(J+140) = -UNUSED
74         BV(J+160) = -UNUSED
75         IF(J .GT. 1) GO TO 1010
76         BV(J+140) = BODY(J+140) + VT(J+140) + VF(J+140)
77         BV(J+160) = BODY(J+160) + VT(J+160) + VF(J+160)
78 1010    CONTINUE
79         BV(J+180) = BODY(J+180) + VT(J+180) + VF(J+180)
80C
81C     B-W-H  DATA
82C
83         BWH(J+140) = -UNUSED
84         BWH(J+160) = -UNUSED
85         IF(J .GT. 1) GO TO 1020
86         BWH(J+140) = BW(J+140) + HT(J+140)
87         BWH(J+160) = BW(J+160) + HT(J+160)
88 1020    BWH(J+180) = BW(J+180) + HT(J+180)
89C
90C     B-W-V  DATA
91C
92         BWV(J+140) = -UNUSED
93         BWV(J+160) = -UNUSED
94         IF(J .GT. 1) GO TO 1030
95         BWV(J+140) = BW(J+140) + VT(J+140) + VF(J+140)
96         BWV(J+160) = BW(J+160) + VT(J+160) + VF(J+160)
97 1030    CONTINUE
98         BWV(J+180) = BW(J+180) + VT(J+180) + VF(J+180)
99C
100C     B-W-H-V  DATA
101C
102         BWHV(J+140) = -UNUSED
103         BWHV(J+160) = -UNUSED
104         IF(J .GT. 1) GO TO 1040
105         BWHV(J+140) = BWH(J+140) + VT(J+140) + VF(J+140)
106         BWHV(J+160) = BWH(J+160) + VT(J+160) + VF(J+160)
107 1040    CONTINUE
108         BWHV(J+180) = BWH(J+180) + VT(J+180) + VF(J+180)
109 1050 CONTINUE
110      IF(.NOT. TRANSN) GO TO 1070
111      VT(141) = UNUSED
112      VT(161) = UNUSED
113      VF(141) = UNUSED
114      VF(161) = UNUSED
115      BV(141) = UNUSED
116      BV(161) = UNUSED
117      BWH(141) = UNUSED
118      BWH(161) = UNUSED
119      BWHV(141) = UNUSED
120      BWHV(161) = UNUSED
121      WING(141) = UNUSED
122      WING(161) = UNUSED
123      HT(141) = UNUSED
124      HT(161) = UNUSED
125      DO 1060 J=1,NALPHA
126         BV(J+180) = UNUSED
127         BWH(J+180) = UNUSED
128         BWV(J+180) = UNUSED
129         BWHV(J+180) = UNUSED
130 1060 CONTINUE
131 1070 CONTINUE
132      RETURN
133      END
134