1      SUBROUTINE SDWD(X, Y, Z, AB, SDW)
2C
3C***  DOWNWASH AT SUPERSONIC SPEEDS
4C***  FIGURE 4.4.1-76D (TAPER = 0.00, 0.25, 0.50)
5C
6      DIMENSION SDW(3)
7      DIMENSION ROUTID(2), QD1(3), QD2(3), QD3(3), QD4(3)
8      DIMENSION XD1(9), YD1(20), XD2(9), YD2(20)
9      DIMENSION XD3(2), YD3A(2), YD3B(2), YD3C(2), XD4(8), YD4(15)
10      DIMENSION LGH(2), VAR(2), CC(6)
11C
12      DATA ROUTID / 4HSDWD, 4H     /
13      DATA QD1    / 4H4.4., 4H1-76, 4HD1   /
14      DATA QD2    / 4H4.4., 4H1-76, 4HD2   /
15      DATA QD3    / 4H4.4., 4H1-76, 4HD3   /
16      DATA QD4    / 4H4.4., 4H1-76, 4HD4   /
17C
18C***           FIGURE 4.4.1-76D1
19C
20      DATA XD1 /
21     1           1.0, 1.4, 1.8, 2.2, 2.4,
22     2           0.0, 0.1, 0.3, 0.5 /
23      DATA YD1 /
24     1           1.68, 2.77, 3.38, 3.60, 3.62,
25     2           1.05, 2.11, 2.78, 3.00, 3.00,
26     3           0.00, 1.20, 1.91, 2.23, 2.30,
27     4           0.00, 0.20, 1.10, 1.45, 1.51 /
28C
29C***           FIGURE 4.4.1-76D2
30C
31      DATA XD2 /
32     1           0.0, .2, .3, 1.0, 4.0,
33     2           2.0, 4., 8., 12. /
34      DATA YD2 /
35     1           0.00, .100, .200, 1.00, 7.00,
36     2           0.00, .200, .300, 1.00, 4.00,
37     3           0.00, .600, .800, 1.20, 2.40,
38     4           0.00, .400, .600, 1.00, 1.60 /
39C
40C***           FIGURE 4.4.1-76D3
41C
42      DATA XD3  / 0.0, 5.5 /
43      DATA YD3A / 0.0, 6.3 /
44      DATA YD3B / 0.0, 5.5 /
45      DATA YD3C / 0.0, 5.0 /
46C
47C***           FIGURE 4.4.1-76D4
48C
49      DATA XD4 /
50     1           0.0, 0.6, 1.0, 1.5, 6.0,
51     2           0.0, .15, .30 /
52      DATA YD4 /
53     1           0.00, .120, .200, .300, 1.20,
54     2           .040, .040, .180, .280, 1.14,
55     3           .040, .040, .120, .260, .960 /
56C
57C***  TABLE LOOK UP - FIGURE 4.4.1-76D1
58C
59      VAR(1) = X
60      VAR(2) = Z
61      LGH(1) = 5
62      LGH(2) = 4
63      CALL INTERX(2, XD1, VAR, LGH, YD1, DUM, 5, 20,
64     1            2, 0, 0, 0, 1, 2, 0, 0, QD1, 3, ROUTID)
65C
66C***  TABLE LOOK UP - FIGURE 4.4.1-76D2
67C
68      VAR(1) = DUM
69      VAR(2) = AB
70      LGH(1) = 5
71      LGH(2) = 4
72      CALL INTERX(2, XD2, VAR, LGH, YD2, DUM, 5, 20,
73     1            0, 2, 0, 0, 1, 2, 0, 0, QD2, 3, ROUTID)
74C
75C***  TABLE LOOK UP - FIGURE 4.4.1-76D3 AND 76D4 AT TAPER = 0.00
76C
77      IN = 0
78      CALL TBFUNX(DUM, DUM2, DYDX, 2, XD3, YD3A, CC, IN,
79     1            MI, NG, 0, 1, QD3, 3, ROUTID)
80C
81      VAR(1) = DUM2
82      VAR(2) = Y
83      LGH(1) = 5
84      LGH(2) = 3
85      CALL INTERX(2, XD4, VAR, LGH, YD4, SDW(1), 5, 15,
86     1            0, 1, 0, 0, 1, 1, 0, 0, QD4, 3, ROUTID)
87C
88C***  TABLE LOOK UP - FIGURE 4.4.1-76D3 AND 76D4 AT TAPER = 0.25
89C
90      IN = 0
91      CALL TBFUNX(DUM, DUM2, DYDX, 2, XD3, YD3B, CC, IN,
92     1            MI, NG, 0, 1, QD3, 3, ROUTID)
93C
94      VAR(1) = DUM2
95      VAR(2) = Y
96      LGH(1) = 5
97      LGH(2) = 3
98      CALL INTERX(2, XD4, VAR, LGH, YD4, SDW(2), 5, 15,
99     1            0, 1, 0, 0, 1, 1, 0, 0, QD4, 3, ROUTID)
100C
101C***  TABLE LOOK UP - FIGURE 4.4.1-76D3 AND 76D4 AT TAPER = 0.50
102C
103      IN = 0
104      CALL TBFUNX(DUM, DUM2, DYDX, 2, XD3, YD3C, CC, IN,
105     1            MI, NG, 0, 1, QD3, 3, ROUTID)
106C
107      VAR(1) = DUM2
108      VAR(2) = Y
109      LGH(1) = 5
110      LGH(2) = 3
111      CALL INTERX(2, XD4, VAR, LGH, YD4, SDW(3), 5, 15,
112     1            0, 1, 0, 0, 1, 1, 0, 0, QD4, 3, ROUTID)
113      RETURN
114      END
115