sbuv2%srcx2k19$ diff blockdata.f ../srcx2k14/blockdata.f
211,213d210
< c  n19 with channel-12 at 343.022 nm
<       data c0n19n/ 0.000E+00, 1.388E+01, 7.719E+00, 4.621E+00,
<      1             1.800E+00, 9.777E-01, 1.626E-01, 1.797e-02/
215,219d211
<       data c1n19n/ 0.000E-00, 2.010E-02, 1.330E-02, 9.873E-03,
<      1             5.323E-03, 3.021E-03, 7.269E-04, 2.050e-04/
<
<       data c2n19n/ 0.000E-00, 1.003E-04, 4.796E-05, 4.165E-05,
<      1             2.767E-05, 1.754E-05, 3.833E-06, 1.188e-06/
223a216
>
226a220
>
233a228
>
235a231
>
sbuv2%srcx2k19$ diff cnstnts.f ../srcx2k14/cnstnts.f
111,118c111
<           if(wlenth(12) .ge. 343.) then
<            do i=1,8
<             c0(i) = c0n19n(i)
<             c1(i) = c1n19n(i)
<             c2(i) = c2n19n(i)
<            enddo
<           else
<            do i=1,8
---
>           do i=1,8
122,123c115
<            enddo
<           endif
---
>           enddo
sbuv2%srcx2k19$ diff absoft.com ../srcx2k14/absoft.com
11d10
<      9    ,c0n19n(8),c1n19n(8),c2n19n(8)
21d19
<      6             ,c0n19n,c1n19n,c2n19n