c    @(#)bzero.f	1.1
      real function bzero(ip)

      bzero=0.0

      return
      end
