      SUBROUTINE NEWALF (WVLN0,ALFA0,WVLNIN,ALFA)
C
      include "newalf.comments"
C                                                                 
C     NEWALF   VERSION 1.0  CGW   BEGUN 05/30/96  COMPLETED 06/7/96 CGW 
C                                                                 
      DIMENSION WVLNS(12,17),ALFAS(12,17)
C
      DATA ALFAS/304.9761,305.7564,306.3836,306.8362,307.1048,
     1  307.2084,307.1859,307.0650,306.8636,306.6193,306.3639,306.1767,
     2  176.7600,175.5171,174.2403,172.9097,171.5285,
     3  170.1128,168.6956,167.3068,165.9599,164.6737,163.4374,162.2740,
     4   80.5547, 80.0137, 79.4712, 78.9136, 78.3310,
     5   77.7153, 77.0574, 76.3513, 75.5896, 74.7806, 73.9333, 73.0995,
     6   51.1512, 50.5267, 49.8852, 49.2296, 48.5628,
     7   47.8957, 47.2303, 46.5772, 45.9377, 45.3187, 44.7264, 44.1697,
     8   29.0770, 28.6838, 28.3126, 27.9587, 27.6219,
     9   27.2988, 26.9876, 26.6869, 26.3909, 26.0948, 25.7933, 25.4896,
     X   20.8656, 20.6041, 20.3401, 20.0732, 19.8034,
     Y   19.5291, 19.2504, 18.9673, 18.6824, 18.3996, 18.1207, 17.8556,
     A   14.4704, 14.2678, 14.0651, 13.8638, 13.6640,
     B   13.4647, 13.2685, 13.0770, 12.8906, 12.7119, 12.5400, 12.3784,
     C    7.7075,  7.6105,  7.5167,  7.4246,  7.3330,
     D    7.2401,  7.1447,  7.0464,  6.9452,  6.8415,  6.7358,  6.6306,
     E    4.5058,  4.4493,  4.3979,  4.3511,  4.3072,
     F    4.2653,  4.2241,  4.1824,  4.1394,  4.0938,  4.0444,  3.9907,
     G    1.8031,  1.7673,  1.7329,  1.7001,  1.6697,
     H    1.6423,  1.6186,  1.5988,  1.5824,  1.5688,  1.5575,  1.5477,
     I    0.8867,  0.8839,  0.8815,  0.8787,  0.8751,
     J    0.8703,  0.8637,  0.8542,  0.8407,  0.8234,  0.8030,  0.7799,
     K    0.4270,  0.4393,  0.4520,  0.4622,  0.4688,
     L    0.4716,  0.4710,  0.4675,  0.4611,  0.4509,  0.4361,  0.4173,
     M    0.1839,  0.1719,  0.1594,  0.1467,  0.1342,
     N    0.1223,  0.1117,  0.1031,  0.0966,  0.0924,  0.0901,  0.0894,
     O    0.1392,  0.1420,  0.1441,  0.1452,  0.1445,
     P    0.1418,  0.1370,  0.1307,  0.1233,  0.1155,  0.1074,  0.0992,
     X    0.0934,  0.0882,  0.0826,  0.0769,  0.0712,
     Y    0.0659,  0.0610,  0.0566,  0.0529,  0.0498,  0.0473,  0.0454,
     Q    0.0173,  0.0182,  0.0193,  0.0205,  0.0219,
     R    0.0233,  0.0248,  0.0262,  0.0275,  0.0284,  0.0287,  0.0280,
     S    0.0079,  0.0080,  0.0083,  0.0086,  0.0091,
     T    0.0097,  0.0105,  0.0113,  0.0122,  0.0131,  0.0141,  0.0151/
C
      DATA WVLNS/251.5,251.6,251.7,251.8,251.9,
     1     252.0,252.1,252.2,252.3,252.4,252.5,252.6,
     2     273.0,273.1,273.2,273.3,273.4,
     3     273.5,273.6,273.7,273.8,273.9,274.0,274.1,
     4     282.7,282.8,282.9,283.0,283.1,
     5     283.2,283.3,283.4,283.5,283.6,283.7,283.8,
     6     287.1,287.2,287.3,287.4,287.5,
     7     287.6,287.7,287.8,287.9,288.0,288.1,288.2,
     8     291.7,291.8,291.9,292.0,292.1,
     9     292.2,292.3,292.4,292.5,292.6,292.7,292.8,
     X     294.5,294.6,294.7,294.8,294.9,
     Y     295.0,295.1,295.2,295.3,295.4,295.5,295.6,
     A     297.0,297.1,297.2,297.3,297.4,
     B     297.5,297.6,297.7,297.8,297.9,298.0,298.1,
     C     301.5,301.6,301.7,301.8,301.9,
     D     302.0,302.1,302.2,302.3,302.4,302.5,302.6,
     E     305.3,305.4,305.5,305.6,305.7,
     F     305.8,305.9,306.0,306.1,306.2,306.3,306.4,
     G     312.0,312.1,312.2,312.3,312.4,
     H     312.5,312.6,312.7,312.8,312.9,313.0,313.1,
     I     317.0,317.1,317.2,317.3,317.4,
     J     317.5,317.6,317.7,317.8,317.9,318.0,318.1,
     K     321.8,321.9,322.0,322.1,322.2,
     L     322.3,322.4,322.5,322.6,322.7,322.8,322.9,
     M     328.5,328.6,328.7,328.8,328.9,
     N     329.0,329.1,329.2,329.3,329.4,329.5,329.6,
     O     330.7,330.8,330.9,331.0,331.1,
     P     331.2,331.3,331.4,331.5,331.6,331.7,331.8,
     X     334.4,334.5,334.6,334.7,334.8,
     Y     334.9,335.0,335.1,335.2,335.3,335.4,335.5,
     Q     339.3,339.4,339.5,339.6,339.7,
     R     339.8,339.9,340.0,340.1,340.2,340.3,340.4,
     S     342.5,342.6,342.7,342.8,342.9,
     T     343.0,343.1,343.2,343.3,343.4,343.5,343.6/
C
      ALFA = 0.0
      WVLNTH = WVLNIN / 10.0
      WV0 = WVLN0 / 10.0
C
C  INTERPOLATE TO WV0
C
      DO 300 L=1,17
        IF(WV0.GE.WVLNS(1,L).AND.WV0.LE.WVLNS(12,L)) THEN
          I0 = 1
          IW = 1
  100     CONTINUE
          I0 = I0 + 1
          IF(I0.GT.12) GO TO 999
          IF(WV0.GT.WVLNS(I0,L)) GO TO 100
C
          ALF0 = ALFAS(I0-1,L) + (WV0-WVLNS(I0-1,L)) /
     1  (WVLNS(I0,L) - WVLNS(I0-1,L))*(ALFAS(I0,L) - ALFAS(I0-1,L))
C
C  INTERPOLATE TO WVLNTH
C
        IF(WVLNTH.LT.WVLNS(1,L).OR.WVLNTH.GT.WVLNS(12,L)) GO TO 999
  200   CONTINUE
          IW = IW + 1
          IF(IW.GT.12) GO TO 999
          IF(WVLNTH.GT.WVLNS(IW,L)) GO TO 200
C
          ALF = ALFAS(IW-1,L) + (WVLNTH-WVLNS(IW-1,L)) /
     1  (WVLNS(IW,L) - WVLNS(IW-1,L))*(ALFAS(IW,L) - ALFAS(IW-1,L))
C
          ALFA = ALFA0 * (ALF / ALF0)
C
          GO TO 999
        ENDIF
  300 CONTINUE
C
  999 CONTINUE

C      WRITE(6,3000) WVLN0,ALFA0,L,I0,IW,WVLNTH,ALF0,ALF,ALFA

      RETURN                                                      
C
C  FORMATS
C
 3000 FORMAT(1x,'NEWALF: WVLN0,ALFA0,L,I0,IW,WVLNTH,ALF0,ALF,ALFA',
     1     /,2f10.4,3i5,4f10.4)
      END                                                         
