      SUBROUTINE NEWALFC (WVLN0,ALFAc0,c1alfac0,c2alfac0,betac0,
     c                 WVLNIN,ALFAc,c1alfac,c2alfac,betac)
C
      include "newalfc.comments"
C                                                                 
C     NEWALF   VERSION 1.0  CGW   BEGUN 05/30/96  COMPLETED 06/7/96 CGW 
C                                                                 
c-h   Add 343 nm for N19 operation.  April 2013
      DIMENSION WVLNS(12,17),ALFAS(12,17),c1alfas(12,17),c2alfas(12,17),
     c                       betas(12,17)
cc
      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,
     a      294.5,294.6,294.7,294.8,294.9,
     x      295.0,295.1,295.2,295.3,295.4,295.5,295.6,
     1      297.0,297.1,297.2,297.3,297.4,
     2      297.5,297.6,297.7,297.8,297.9,298.0,298.1,
     3      301.5,301.6,301.7,301.8,301.9,
     4      302.0,302.1,302.2,302.3,302.4,302.5,302.6,
     5      305.3,305.4,305.5,305.6,305.7,
     6      305.8,305.9,306.0,306.1,306.2,306.3,306.4,
     7      312.0,312.1,312.2,312.3,312.4,
     8      312.5,312.6,312.7,312.8,312.9,313.0,313.1,
     9      317.0,317.1,317.2,317.3,317.4,
     1      317.5,317.6,317.7,317.8,317.9,318.0,318.1,
     2      321.8,321.9,322.0,322.1,322.2,
     3      322.3,322.4,322.5,322.6,322.7,322.8,322.9,
     4      328.5,328.6,328.7,328.8,328.9,
     5      329.0,329.1,329.2,329.3,329.4,329.5,329.6,
     6      330.7,330.8,330.9,331.0,331.1,
     7      331.2,331.3,331.4,331.5,331.6,331.7,331.8,
     a      334.4,334.5,334.6,334.7,334.8,
     b      334.9,335.0,335.1,335.2,335.3,335.4,335.5, 
     8      339.3,339.4,339.5,339.6,339.7,
     9      339.8,339.9,340.0,340.1,340.2,340.3,340.4,
     1      342.5,342.6,342.7,342.8,342.9,
     2      343.0,343.1,343.2,343.3,343.4,343.5,343.6/
c
      data alfas/302.508,303.337,304.074,304.691,305.181,
     1   305.534,305.736,305.789,305.719,305.577,305.408,305.265,
     2   178.040,177.170,176.260,175.289,174.244,
     3   173.125,171.948,170.716,169.433,168.105,166.721,165.294,
     4    82.258, 81.706, 81.149, 80.582, 80.001,
     5    79.399, 78.771, 78.110, 77.405, 76.665, 75.903, 75.133,
     6    52.545, 52.047, 51.543, 51.014, 50.442,
     7    49.830, 49.178, 48.499, 47.799, 47.084, 46.359, 45.632,
     8    30.392, 29.999, 29.625, 29.265, 28.913,
     9    28.565, 28.219, 27.874, 27.529, 27.188, 26.850, 26.516,
     a    21.397, 21.119, 20.842, 20.564, 20.284,
     x    19.999, 19.710, 19.417, 19.123, 18.835, 18.558, 18.297,
     1    15.221, 14.969, 14.731, 14.508, 14.303,
     2    14.116, 13.945, 13.787, 13.638, 13.491, 13.342, 13.188,
     3     8.296,8.197,8.095,7.989,7.878,
     4     7.761,7.639,7.515,7.391,7.269,7.150,7.037,
     5     4.944,4.884,4.827,4.773,4.721,
     6     4.671,4.621,4.570,4.517,4.461,4.402,4.340,
     7     2.022,1.982,1.943,1.906,1.872,
     8     1.842,1.815,1.793,1.773,1.757,1.742,1.728,
     9     1.009,1.005,1.001,0.997,0.992,
     1     0.987,0.979,0.968,0.953,0.933,0.911,0.885,
     2     0.508,0.516,0.525,0.532,0.536,
     3     0.538,0.536,0.533,0.527,0.518,0.505,0.488,
     4     0.223,0.211,0.199,0.187,0.174,
     5     0.162,0.152,0.143,0.136,0.131,0.127,0.125,
     6     0.163,0.166,0.168,0.170,0.170,
     7     0.168,0.164,0.158,0.152,0.145,0.137,0.129,
     a     0.094,0.089,0.084,0.078,0.072,
     b     0.067,0.062,0.057,0.053,0.050,0.048,0.046,           
     8     0.031,0.032,0.033,0.034,0.035,
     9     0.036,0.037,0.038,0.038,0.038,0.038,0.036,
     1     0.0163,0.0164,0.0167,0.0170,0.0174,
     2     0.0178,0.0184,0.0189,0.0195,0.0201,0.0208,0.0215/
c
      data c1alfas/
     q  -.380E-01,-.386E-01,-.384E-01,-.378E-01,-.367E-01,-.355E-01,
     1  -.346E-01,-.340E-01,-.336E-01,-.334E-01,-.333E-01,-0.33968E-01,
     2  0.331E-01,0.329E-01,0.328E-01,0.331E-01,0.340E-01,0.349E-01,
     3  0.358E-01,0.363E-01,0.366E-01,0.368E-01,0.367E-01,0.36671E-01,
     4  0.265E-01,0.264E-01,0.264E-01,0.264E-01,0.265E-01,0.267E-01,
     5  0.270E-01,0.275E-01,0.280E-01,0.288E-01,0.295E-01,0.30263E-01,
     6  0.321E-01,0.320E-01,0.321E-01,0.322E-01,0.324E-01,0.326E-01,
     7  0.328E-01,0.330E-01,0.332E-01,0.334E-01,0.334E-01,0.33392E-01,
     8  0.268E-01,0.269E-01,0.269E-01,0.269E-01,0.268E-01,0.266E-01,
     9  0.264E-01,0.262E-01,0.259E-01,0.256E-01,0.253E-01,0.25001E-01,
     a  2.385E-02,2.384E-02,2.381E-02,2.381E-02,2.381E-02,2.380E-02,
     x  2.380E-02,2.376E-02,2.372E-02,2.363E-02,2.354E-02,2.344E-02,
     1  0.208E-01,0.206E-01,0.205E-01,0.204E-01,0.203E-01,0.202E-01,
     2  0.201E-01,0.201E-01,0.200E-01,0.199E-01,0.198E-01,0.19679E-01,
     3  0.141E-01,0.139E-01,0.138E-01,0.136E-01,0.135E-01,0.133E-01,
     4  0.132E-01,0.131E-01,0.130E-01,0.130E-01,0.129E-01,0.12908E-01,
     5  0.108E-01,0.106E-01,0.105E-01,0.103E-01,0.102E-01,0.100E-01,
     6  0.987E-02,0.972E-02,0.958E-02,0.945E-02,0.934E-02,0.92562E-02,
     7  0.558E-02,0.556E-02,0.554E-02,0.551E-02,0.548E-02,0.543E-02,
     8  0.538E-02,0.531E-02,0.523E-02,0.514E-02,0.505E-02,0.49678E-02,
     9  0.333E-02,0.327E-02,0.322E-02,0.316E-02,0.311E-02,0.306E-02,
     1  0.302E-02,0.299E-02,0.299E-02,0.300E-02,0.302E-02,0.30449E-02,
     2  0.203E-02,0.196E-02,0.189E-02,0.184E-02,0.180E-02,0.177E-02,
     3  0.175E-02,0.174E-02,0.174E-02,0.174E-02,0.176E-02,0.17859E-02,
     4  0.103E-02,0.105E-02,0.107E-02,0.109E-02,0.110E-02,0.111E-02,
     5  0.110E-02,0.109E-02,0.107E-02,0.105E-02,0.102E-02,0.99045E-03,
     6  0.727E-03,0.719E-03,0.714E-03,0.710E-03,0.711E-03,0.717E-03,
     7  0.725E-03,0.735E-03,0.743E-03,0.751E-03,0.756E-03,0.75934E-03,
     a  5.956E-04,5.926E-04,5.886E-04,5.835E-04,5.767E-04,5.672E-04,
     b  5.561E-04,5.452E-04,5.347E-04,5.252E-04,5.160E-04,5.079E-04,
     8  0.401E-03,0.400E-03,0.397E-03,0.392E-03,0.385E-03,0.376E-03,
     9  0.366E-03,0.354E-03,0.342E-03,0.331E-03,0.321E-03,0.31174E-03,
     1  2.131e-04,2.135e-04,2.136e-04,2.130e-04,2.109e-04,2.074e-04,
     2  2.025e-04,1.965e-04,1.899e-04,1.828e-04,1.752e-04,1.669e-04/
c
      data c2alfas/
     q  -.220E-03,-.220E-03,-.216E-03,-.214E-03,-.216E-03,-.222E-03,
     1  -.235E-03,-.251E-03,-.268E-03,-.287E-03,-.306E-03,-0.33092E-03,
     2  0.160E-03,0.148E-03,0.142E-03,0.141E-03,0.151E-03,0.158E-03,
     3  0.163E-03,0.163E-03,0.156E-03,0.149E-03,0.139E-03,0.13097E-03,
     4  -.205E-03,-.193E-03,-.181E-03,-.170E-03,-.160E-03,-.153E-03,
     5  -.146E-03,-.142E-03,-.138E-03,-.134E-03,-.131E-03,-0.12825E-03,
     6  0.104E-03,0.998E-04,0.978E-04,0.952E-04,0.936E-04,0.902E-04,
     7  0.882E-04,0.872E-04,0.866E-04,0.855E-04,0.833E-04,0.81649E-04,
     8  0.502E-04,0.537E-04,0.569E-04,0.592E-04,0.612E-04,0.626E-04,
     9  0.632E-04,0.634E-04,0.631E-04,0.622E-04,0.609E-04,0.59279E-04,
     a  8.798E-05,9.049E-05,9.239E-05,9.427E-05,9.604E-05,9.711E-05,
     x  9.834E-05,9.865E-05,9.881E-05,9.859E-05,9.835E-05,9.871E-05,
     1  0.101E-03,0.101E-03,0.101E-03,0.101E-03,0.101E-03,0.101E-03,
     2  0.100E-03,0.100E-03,0.999E-04,0.997E-04,0.991E-04,0.98453E-04,
     3  0.507E-04,0.499E-04,0.493E-04,0.488E-04,0.485E-04,0.481E-04,
     4  0.478E-04,0.477E-04,0.478E-04,0.483E-04,0.489E-04,0.49685E-04,
     5  0.444E-04,0.438E-04,0.433E-04,0.427E-04,0.422E-04,0.419E-04,
     6  0.417E-04,0.414E-04,0.411E-04,0.407E-04,0.403E-04,0.39846E-04,
     7  0.296E-04,0.296E-04,0.295E-04,0.293E-04,0.290E-04,0.285E-04,
     8  0.281E-04,0.275E-04,0.270E-04,0.266E-04,0.263E-04,0.26123E-04,
     9  0.167E-04,0.166E-04,0.167E-04,0.169E-04,0.170E-04,0.171E-04,
     1  0.175E-04,0.183E-04,0.195E-04,0.206E-04,0.215E-04,0.22263E-04,
     2  0.113E-04,0.113E-04,0.113E-04,0.111E-04,0.109E-04,0.106E-04,
     3  0.103E-04,0.100E-04,0.968E-05,0.928E-05,0.887E-05,0.84842E-05,
     4  0.468E-05,0.468E-05,0.466E-05,0.464E-05,0.462E-05,0.460E-05,
     5  0.461E-05,0.463E-05,0.467E-05,0.471E-05,0.475E-05,0.47643E-05,
     6  0.461E-05,0.451E-05,0.443E-05,0.431E-05,0.417E-05,0.402E-05,
     7  0.385E-05,0.372E-05,0.360E-05,0.353E-05,0.348E-05,0.34507E-05,
     a  3.390E-06,3.319E-06,3.250E-06,3.184E-06,3.127E-06,3.081E-06,
     b  3.047E-06,3.040E-06,3.038E-06,3.028E-06,3.007E-06,2.992E-06,
     8  0.283E-05,0.282E-05,0.280E-05,0.278E-05,0.274E-05,0.269E-05,
     9  0.264E-05,0.258E-05,0.253E-05,0.251E-05,0.249E-05,0.24468E-05,
     1  1.237e-06,1.228e-06,1.224e-06,1.222e-06,1.218e-06,1.210e-06,
     2  1.190e-06,1.160e-06,1.126e-06,1.091e-06,1.050e-06,1.004e-06/
c
      data betas/ 2.644,2.639,2.634,2.629,2.624,
     1      2.619,2.614,2.608,2.603,2.598,2.593,2.58807,
     2      1.833,1.831,1.829,1.827,1.824,
     3      1.822,1.820,1.817,1.814,1.811,1.808,1.80485,
     4      1.573,1.571,1.569,1.566,1.564,
     5      1.562,1.559,1.557,1.555,1.552,1.550,1.54806,
     6      1.471,1.470,1.468,1.466,1.464,
     7      1.462,1.460,1.457,1.455,1.452,1.450,1.44676,
     8      1.374,1.372,1.370,1.368,1.366,
     9      1.364,1.361,1.359,1.357,1.355,1.353,1.35057,
     a      1.317,1.315,1.313,1.311,1.309,
     x      1.307,1.305,1.303,1.301,1.299,1.297,1.296,
     1      1.270,1.268,1.265,1.263,1.261,
     2      1.260,1.258,1.257,1.255,1.254,1.252,1.25056,
     3      1.190,1.189,1.187,1.185,1.183,
     4      1.181,1.179,1.177,1.175,1.173,1.171,1.16953,
     5      1.128,1.126,1.125,1.123,1.121,
     6      1.120,1.118,1.116,1.115,1.113,1.111,1.10947,
     7      1.027,1.025,1.024,1.022,1.021,
     8      1.019,1.018,1.017,1.015,1.014,1.012,1.01092,
     9      0.958,0.957,0.956,0.955,0.954,
     1      0.953,0.952,0.951,0.949,0.948,0.947,0.94531,
     2      0.899,0.898,0.897,0.896,0.895,
     3      0.894,0.892,0.891,0.890,0.889,0.888,0.88647,
     4      0.823,0.822,0.821,0.820,0.819,
     5      0.818,0.817,0.816,0.815,0.814,0.813,0.81164,
     6      0.801,0.800,0.799,0.797,0.796,
     7      0.795,0.794,0.793,0.792,0.791,0.790,0.78929,
     a      0.764,0.764,0.763,0.762,0.761,           
     b      0.760,0.759,0.758,0.757,0.756,0.755,0.754,
     8      0.718,0.717,0.716,0.715,0.714,
     9      0.713,0.712,0.711,0.711,0.710,0.709,0.70820,
     1      0.691,0.690,0.689,0.688,0.687,
     2      0.686,0.686,0.685,0.684,0.683,0.683,0.682/
ccc
      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))
          c1A0 = c1ALFAS(I0-1,L) + (WV0-WVLNS(I0-1,L)) /
     1  (WVLNS(I0,L) - WVLNS(I0-1,L))*(c1ALFAS(I0,L) - c1ALFAS(I0-1,L))
          c2A0 = c2ALFAS(I0-1,L) + (WV0-WVLNS(I0-1,L)) /
     1  (WVLNS(I0,L) - WVLNS(I0-1,L))*(c2ALFAS(I0,L) - c2ALFAS(I0-1,L))
          btA0 = betas(I0-1,L) + (WV0-WVLNS(I0-1,L)) /
     1  (WVLNS(I0,L) - WVLNS(I0-1,L))*(betaS(I0,L) - betaS(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))
          c1A = c1ALFAS(IW-1,L) + (WVLNTH-WVLNS(IW-1,L)) /
     1  (WVLNS(IW,L) - WVLNS(IW-1,L))*(c1ALFAS(IW,L) - c1ALFAS(IW-1,L))
          c2A = c2ALFAS(IW-1,L) + (WVLNTH-WVLNS(IW-1,L)) /
     1  (WVLNS(IW,L) - WVLNS(IW-1,L))*(c2ALFAS(IW,L) - c2ALFAS(IW-1,L))
          bta = betaS(IW-1,L) + (WVLNTH-WVLNS(IW-1,L)) /
     1  (WVLNS(IW,L) - WVLNS(IW-1,L))*(betaS(IW,L) - betaS(IW-1,L))
C
          ALFAc = ALFAc0 * (ALF / ALF0)
          c1ALFAc = c1ALFAc0 * (c1a / c1a0)
          c2ALFAc = c2ALFAc0 * (c2a / c2a0)
          betac = betac0 * (bta / bta0)
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,'NEWALFC: WVLN0,ALFA0,L,I0,IW,WVLNTH,ALF0,ALF,ALFA',
     1     /,2f10.4,3i5,4f10.4)
      END                                                         
