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