SUBROUTINE ld_cloud_eck5(rt, success)

c
c Load the cloud factor array with a constant value equal to the 
c Tom Eck cloud correction factor for a constant 5% surface reflectivity.
c

      INCLUDE "params.inc"
      INCLUDE "weights.cmn"
      INCLUDE "cloud.cmn"

      INTEGER*4 dernier, ix
      REAL*8 eckccf5, rt, cf
      LOGICAL success

      dernier= w_ix0(n_w_fns) - 1

      cf= eckccf5(rt, success)
        IF (.NOT. success) RETURN     

      DO ix=0, dernier
        cldfac(ix)= cf
      END DO

      success=.TRUE.
      RETURN
      END