1      SUBROUTINE FIG60B(BETA, BTANA, CNAA)
2C ***
3C *** INTERPOLATE DATCOM FIGURE 4.1.3.3-60B FOR FIN CNAA
4C ***
5C *** REFERENCE   DATCOM SECTION 4.1.3.3
6C ***
7C *** LIMITATIONS   SUPERSONIC FIN LEADING EDGE
8C ***               ATTACHED SHOCK
9C ***               STRAIGHT TAPERED FINS
10C ***
11C *** INPUT   BETA    MACH SIMILARITY PARAMETER, SQRT(MACH**2-1.0)
12C ***         BTANA   BETA*TAN(ALPHA), ALPHA = ANGLE OF ATTACK
13C ***
14C *** OUTPUT  CNAA    CN PER SIN(ALPHA)**2
15C ***
16C ***
17      DIMENSION XA(13), YA(9), Z60B(117), BTA(13)
18      DIMENSION Q60B(3), ROUT(2), C(6)
19C ***
20C *** CONSTANT DATA
21C ***
22      DATA DUM  / 1.0 /
23      DATA Q60B / 4H4.1., 4H3.3-, 4H60B  /
24      DATA ROUT / 4HFIG6, 4H0B   /
25C ***
26C *** FIGURE 4.1.3.3-60B
27C ***
28      DATA XA / 0.0, 0.2, 0.4, 0.6, 0.8, 1.0, 1.2, 1.4, 1.6, 1.8,
29     *          2.0, 2.2, 2.4 /
30      DATA YA / 1.25, 1.50, 1.75, 2.00, 2.50, 3.0, 4.0, 5.0, 20.0 /
31      DATA Z60B / 0.000,  .047,  .089,  .127,  .160,  .188,  .211,
32     *             .231,  .247,  .258,  .266,  .269,  .270,
33     *            0.000,  .104,  .192,  .259,  .311,  .357,  .395,
34     *             .426,  .452,  .474,  .492,  .505,  .515,
35     *            0.000,  .112,  .215,  .308,  .405,  .499,  .572,
36     *             .624,  .667,  .704,  .735,  .760,  .780,
37     *            0.000,  .132,  .270,  .400,  .521,  .637,  .732,
38     *             .820,  .878,  .925,  .962,  .986, 1.000,
39     *            0.000,  .183,  .353,  .534,  .700,  .873, 1.040,
40     *            1.190, 1.300, 1.388, 1.461, 1.520, 1.563,
41     *            0.000,  .223,  .447,  .652,  .865, 1.096, 1.325,
42     *            1.525, 1.697, 1.842, 1.978, 2.105, 2.222,
43     *            0.000,  .270,  .576,  .845, 1.106, 1.447, 1.803,
44     *            2.222, 2.511, 2.707, 2.875, 3.014, 3.125,
45     *            0.000,  .270,  .575,  .890, 1.170, 1.563, 1.960,
46     *            2.473, 2.921, 3.333, 3.744, 4.148, 4.545,
47     *            0.000,  .306,  .629,  .925, 1.232, 1.667, 2.262,
48     *            3.004, 4.065, 5.814, 9.259, 20.83, 1000. /
49C ***
50C *** CONSTRUCT CURVE OF CNAA VS BETA*TAN(ALPHA) AT INPUT BETA
51C ***           XA   - CNAA CURVE
52C ***           YA   - BETA CURVE
53C ***           Z60B - BETA*TAN(ALPHA) VS CNAA AND BETA
54C ***
55      BTA(1) = 0.0
56      DO 1000 I=2,13
57        CALL TLINEX(YA, XA, Z60B, 9, 13, BETA, XA(I), BTA(I),
58     1              1, 1, 0, 0, Q60B, 3, ROUT)
59 1000 CONTINUE
60C
61C *** LOOK-UP FOR CNAA
62C
63      BTAN = BTANA
64      IF(BTAN .GT. BTA(13)) BTAN = BTA(13)
65      CALL TBFUNX(BTAN, CNAA, DYDX, 13, BTA, XA, C, IN,
66     1            MI, NG, 0, 0, Q60B, 3, ROUT)
67      RETURN
68      END
69