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