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