minix/lib/ack/fphook/zrf4.fc

19 lines
275 B
Text
Executable file

/*
(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)
*/
#include "FP_types.h"
void
zrf4(l)
SINGLE *l;
{
*l = 0L;
}