minix/lib/ack/fphook/zrf8.fc

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