sbuv2%code_ibsl19$ diff newalf_14.f ../code_ibsl1/newalf_14.f
7c7
<       DIMENSION WVLNS(12,16),ALFAS(12,16)
---
>       DIMENSION WVLNS(12,15),ALFAS(12,15)
38,40c38
<      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/
---
>      R    0.0233,  0.0248,  0.0262,  0.0275,  0.0284,  0.0287,  0.0280/
71,73c69
<      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/
---
>      R     339.8,339.9,340.0,340.1,340.2,340.3,340.4/
81c77
<       DO 300 L=1,16
---
>       DO 300 L=1,15
sbuv2%code_ibsl19$ diff newalfc.f ../code_ibsl1/newalfc.f
8,10c8,9
< c-h   Add 343 nm for N19 operation.  April 2013
<       DIMENSION WVLNS(12,16),ALFAS(12,16),c1alfas(12,16),c2alfas(12,16),
<      c                       betas(12,16)
---
>       DIMENSION WVLNS(12,15),ALFAS(12,15),c1alfas(12,15),c2alfas(12,15),
>      c                       betas(12,15)
41,43c40
<      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/
---
>      9      339.8,339.9,340.0,340.1,340.2,340.3,340.4/
74,76c71
<      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/
---
>      9     0.036,0.037,0.038,0.038,0.038,0.038,0.036/
108,110c103
<      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/
---
>      9  0.366E-03,0.354E-03,0.342E-03,0.331E-03,0.321E-03,0.31174E-03/
142,144c135
<      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/
---
>      9  0.264E-05,0.258E-05,0.253E-05,0.251E-05,0.249E-05,0.24468E-05/
175,177c166
<      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/
---
>      9      0.713,0.712,0.711,0.711,0.710,0.709,0.70820/
185c174
<       DO 300 L=1,16
---
>       DO 300 L=1,15
sbuv2%code_ibsl19$ diff newflx_14.f ../code_ibsl1/newflx_14.f
7,8c7
< c-h   Added 343 nm for N19 Channel-12.  April 2013
<       DIMENSION WVLNS(12,16),FLUXS(12,16)
---
>       DIMENSION WVLNS(12,15),FLUXS(12,15)
39,41c38
<      R        1058.56, 1067.60, 1073.52, 1076.26, 1075.40, 1071.88,
<      S        1030.33, 1036.60, 1040.56, 1043.17, 1045.98, 1048.81,
<      T        1047.40, 1039.65, 1025.84, 1008.25,  988.90,  966.94/
---
>      R        1058.56, 1067.60, 1073.52, 1076.26, 1075.40, 1071.88/
72,74c69
<      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/
---
>      R     339.8,339.9,340.0,340.1,340.2,340.3,340.4/
82c77
<       DO 300 L=1,16
---
>       DO 300 L=1,15