minix/lib/ack/float/zrf8.fc
2009-11-09 10:26:00 +00:00

21 lines
297 B
Text

/*
(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 double (ZRF 8)
*/
#include "FP_types.h"
void
zrf8(z)
DOUBLE *z;
{
z->d[0] = 0L;
z->d[1] = 0L;
}