#* HISTORY *
#* B.Simon	01-Nov-95	original

# SETZERO -- Zero replacement for division procedure

real procedure setzero (value)

real	value
#--

begin
	return (0.0)
end