c
      parameter (nc = 10, nref = 1410)
c
      real wvl_c, wvl_r, a0_r, a1_r, a2_r, b_r, rho_r, flux_r
c
      common/coeff/wvl_c(nc), wvl_r(nref), a0_r(nref), a1_r(nref),
     1     a2_r(nref), b_r(nref), rho_r(nref), flux_r(nref)