/* (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands. See the copyright notice in the ACK home directory, in the file "Copyright". */ /* $Header$ */ /* return a zero float */ #include "FP_types.h" zrf4(l) long *l; { *l = 0L; }