real function cpsec()
      implicit real(a-h,o-z)
      cpsec=0
      return
      end