double precision r_cut,rlamb
      common /splitele/ r_cut,rlamb