double precision function dfloat(i)
      integer i
      dfloat = i
      return
      end