subroutine ld_cloud_ccf(wavelength,taucl,rs,pt,szat,ct,success)
      real*8 rs, szat, pt
      real*8 taucl, tcl, wavelength, ct
      logical success
      integer*4 ifn, ilam, ilam0, ilam1, ix
c     -- fill in the cloud factor values
      call ccf(wavelength,szat,taucl,rs*100.,pt,ct,success)
      if(.not. success) return
      success= .true.
      return
      end