1      SUBROUTINE SDWE(X, Y, Z, AB, TAPER, SDW)
2C
3C***  DOWNWASH AT SUPERSONIC SPEEDS
4C***  FIGURE 4.4.1-76E
5C
6      DIMENSION ROUTID(2), QE1(3), QE2(3), QE3(3), QE4(3)
7      DIMENSION XE1(9), YE1(20), XE2(7), YE2(10)
8      DIMENSION XE3(4), YE3(4), XE4(8), YE4(15)
9      DIMENSION LGH(2), VAR(2)
10C
11      DATA ROUTID / 4HSDWE, 4H     /
12      DATA QE1    / 4H4.4., 4H1-76, 4HE1   /
13      DATA QE2    / 4H4.4., 4H1-76, 4HE2   /
14      DATA QE3    / 4H4.4., 4H1-76, 4HE3   /
15      DATA QE4    / 4H4.4., 4H1-76, 4HE4   /
16C
17C***           FIGURE 4.4.1-76E1
18C
19      DATA XE1 /
20     1           1.0, 1.4, 1.8, 2.2, 2.4,
21     2           0.0, 0.1, 0.3, 0.5 /
22      DATA YE1 /
23     1           1.68, 2.77, 3.38, 3.60, 3.62,
24     2           1.05, 2.11, 2.78, 3.00, 3.00,
25     3           0.00, 1.20, 1.91, 2.23, 2.30,
26     4           0.00, 0.20, 1.10, 1.45, 1.51 /
27C
28C***           FIGURE 4.4.1-76E2
29C
30      DATA XE2 /
31     1           0.0, 1.0, 2.0, 3.0, 4.0,
32     2           4.0, 5.0 /
33      DATA YE2 /
34     1           0.00, 0.92, 1.97, 3.00, 4.10,
35     2           0.00, 1.63, 3.36, 5.20, 7.30 /
36C
37C***           FIGURE 4.4.1-76E3
38C
39      DATA XE3 /
40     1           0.00, 5.50,
41     2           0.25, 0.50 /
42      DATA YE3 /
43     1           0.0, 5.5,
44     2           0.0, 5.0 /
45C
46C***           FIGURE 4.4.1-76E4
47C
48      DATA XE4 /
49     1           0.0, 0.6, 1.0, 1.5, 6.0,
50     2           0.0, .15, .30 /
51      DATA YE4 /
52     1           0.00, .120, .200, .300, 1.20,
53     2           .040, .040, .180, .280, 1.14,
54     3           .040, .040, .120, .260, .960 /
55C
56C***  TABLE LOOK UP - FIGURE 4.4.1-76E1
57C
58      VAR(1) = X
59      VAR(2) = Z
60      LGH(1) = 5
61      LGH(2) = 4
62      CALL INTERX(2, XE1, VAR, LGH, YE1, DUM, 5, 20,
63     1            2, 0, 0, 0, 1, 2, 0, 0, QE1, 3, ROUTID)
64C
65C***  TABLE LOOK UP - FIGURE 4.4.1-76E2
66C
67      VAR(1) = DUM
68      VAR(2) = AB
69      LGH(1) = 5
70      LGH(2) = 2
71      CALL INTERX(2, XE2, VAR, LGH, YE2, DUM, 5, 10,
72     1            0, 2, 0, 0, 1, 2, 0, 0, QE2, 3, ROUTID)
73C
74C***  TABLE LOOK UP - FIGURE 4.4.1-76E3
75C
76      VAR(1) = DUM
77      VAR(2) = TAPER
78      LGH(1) = 2
79      LGH(2) = 2
80      CALL INTERX(2, XE3, VAR, LGH, YE3, DUM, 2, 4,
81     1            0, 1, 0, 0, 1, 1, 0, 0, QE3, 3, ROUTID)
82C
83C***  TABLE LOOK UP - FIGURE 4.4.1-76E4
84C
85      VAR(1) = DUM
86      VAR(2) = Y
87      LGH(1) = 5
88      LGH(2) = 3
89      CALL INTERX(2, XE4, VAR, LGH, YE4, SDW, 5, 15,
90     1            0, 1, 0, 0, 1, 1, 0, 0, QE4, 3, ROUTID)
91      RETURN
92      END
93