cccccccccccccccccccccccccccccc

      real function floor(x)

      parameter (onemeps=1-1e-5)
c      real*4 onemeps,x

      if(x.ge.0) then
	floor=int(x)
      else
	floor=int(x-onemeps)
      endif
      return
      end