zrf8.c 293 B

123456789101112131415161718192021
  1. /*
  2. (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
  3. See the copyright notice in the ACK home directory, in the file "Copyright".
  4. */
  5. /* $Id$ */
  6. /*
  7. return a zero double (ZRF 8)
  8. */
  9. #include "FP_types.h"
  10. void
  11. zrf8(z)
  12. DOUBLE *z;
  13. {
  14. z->d[0] = 0L;
  15. z->d[1] = 0L;
  16. }