1      SUBROUTINE SDWC(X, Y, Z, AB, SDW)
2C
3C***  DOWNWASH AT SUPERSONIC SPEEDS
4C***  FIGURE 4.4.1-76C (TAPER = 0.25, 0.50)
5C
6      DIMENSION SDW(2)
7      DIMENSION ROUTID(2), QC1(3), QC2(3), QC3(3), QC4(3)
8      DIMENSION XC1(11), YC1(28), XC2(12), YC2(12)
9      DIMENSION XC3(5), YC3A(5), YC3B(5), XC4(4), YC4(4)
10      DIMENSION LGH(2), VAR(2), CC(6)
11C
12      DATA ROUTID / 4HSDWC, 4H     /
13      DATA QC1    / 4H4.4., 4H1-76, 4HC1   /
14      DATA QC2    / 4H4.4., 4H1-76, 4HC2   /
15      DATA QC3    / 4H4.4., 4H1-76, 4HC3   /
16      DATA QC4    / 4H4.4., 4H1-76, 4HC4   /
17C
18C***           FIGURE 4.4.1-76C1
19C
20      DATA XC1 /
21     1           .900, .950, 1.12, 1.40, 1.80, 2.20, 2.40,
22     2           0.00, 0.10, 0.30, 0.50 /
23      DATA YC1 /
24     1           0.80, 1.00, 1.30, 1.63, 1.96, 2.08, 2.10,
25     2           0.00, 0.70, 1.00, 1.39, 1.70, 1.81, 1.80,
26     3           0.00, 0.00, 0.33, 0.85, 1.20, 1.40, 1.40,
27     4           0.00, 0.00, 0.00, 0.38, 0.79, 0.99, 1.00 /
28C
29C***           FIGURE 4.4.1-76C2
30C
31      DATA XC2 /
32     1           0.00, 2.50, 4*0.,
33     2           2.70, 3.20, 5.40, 6.40, 10.7, 12.8 /
34      DATA YC2 /
35     1           0.0, 4.60,
36     2           0.0, 3.55,
37     3           0.0, 2.90,
38     4           0.0, 2.50,
39     5           0.0, 1.84,
40     6           0.0, 1.59 /
41C
42C***           FIGURE 4.4.1-76C3
43C
44      DATA XC3  / 0.0, 3.00, 3.50, 3.75, 4.00 /
45      DATA YC3A / 0.0, 3.00, 3.50, 3.75, 4.00 /
46      DATA YC3B / 0.0, 2.35, 3.00, 3.50, 3.50 /
47C
48C***           FIGURE 4.4.1-76C4
49C
50      DATA XC4 /
51     1           0.0, 4.00,
52     2           0.0, .30 /
53      DATA YC4 /
54     1           0.0, .780,
55     2           0.0, .820 /
56C
57C***  TABLE LOOK UP - FIGURE 4.4.1-76C1
58C
59      VAR(1) = X
60      VAR(2) = Z
61      LGH(1) = 7
62      LGH(2) = 4
63      CALL INTERX(2, XC1, VAR, LGH, YC1, DUM, 7, 28,
64     1            2, 0, 0, 0, 1, 2, 0, 0, QC1, 3, ROUTID)
65C
66C***  TABLE LOOK UP - FIGURE 4.4.1-76C2
67C
68      VAR(1) = DUM
69      VAR(2) = AB
70      LGH(1) = 2
71      LGH(2) = 6
72      CALL INTERX(2, XC2, VAR, LGH, YC2, DUM, 6, 12,
73     1            0, 2, 0, 0, 1, 2, 0, 0, QC2, 3, ROUTID)
74C
75C***  TABLE LOOK UP - FIGURE 4.4.1-76C3 AND 76C4 AT TAPER = 0.25
76C
77      IN = 0
78      CALL TBFUNX(DUM, DUM2, DYDX, 5, XC3, YC3A, CC, IN,
79     1            MI, NG, 0, 1, QC3, 3, ROUTID)
80C
81      VAR(1) = DUM2
82      VAR(2) = Y
83      LGH(1) = 2
84      LGH(2) = 2
85      CALL INTERX(2, XC4, VAR, LGH, YC4, SDW(1), 2, 4,
86     1            0, 1, 0, 0, 1, 1, 0, 0, QC4, 3, ROUTID)
87C
88C***  TABLE LOOK UP - FIGURE 4.4.1-76C3 AND 76C4 AT TAPER = 0.50
89C
90      IN = 0
91      CALL TBFUNX(DUM, DUM2, DYDX, 5, XC3, YC3B, CC, IN,
92     1            MI, NG, 0, 1, QC3, 3, ROUTID)
93C
94      VAR(1) = DUM2
95      VAR(2) = Y
96      LGH(1) = 2
97      LGH(2) = 2
98      CALL INTERX(2, XC4, VAR, LGH, YC4, SDW(2), 2, 4,
99     1            0, 1, 0, 0, 1, 1, 0, 0, QC4, 3, ROUTID)
100      RETURN
101      END
102