c     integer     n, nc, ns, nitr, nref
c                             !number of levels, number of channels,
c                             !  number of subchannels in each channel
c                                       !  (<-> slit), maximum number of
c                             !  iterations
c     parameter   (n = 81, nc = 10, ns = 8, nitr = 8, nref = 1410)
c
      real sigmae, sigmaq, corrlen, tol_q, z, p_lvl,
     1   a0, a1, a2, b, p0,
     2   p2, w, cov_e, rad_m0, kern_mu,
     3   q0, qutot_a, nval_obs, sza10, qu_a, tu_a,
     4   wvl_c, p_cld, p_terr, cldfrac
c
      common /prfprm/sigmae, sigmaq, corrlen, tol_q, z(81), p_lvl(81),
     1   a0(10,8), a1(10,8), a2(10,8), b(10,8), p0(10,8),
     2   p2(10,8), w(10,8), cov_e(10,10), rad_m0(10), kern_mu(10,11),
     3   q0(81), qutot_a, nval_obs(10), sza10(10), qu_a(13), tu_a(13),
     4   wvl_c(10), p_cld, p_terr, cldfrac(10)