/* (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 (ZRF 4) */ zrf4(l) long *l; { *l = 0L; }