lib/ack/libfp/cff8.fc

   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
   6 /* $Header$ */
   7
   8 /*
   9                 CONVERT SINGLE TO DOUBLE (CFF 4 8)
  10
  11         This routine works quite simply. A floating point
  12         of size 04 is converted to extended format.
  13         This extended variable is converted back to
  14         a floating point of size 08.
  15
  16 */
  17
  18 #include "FP_types.h"
  19
  20 void
  21 cff8(src)
  22 SINGLE  src;
  23 {
  24         EXTEND  buf;
  25
  26         extend(&src,&buf,sizeof(SINGLE));       /* no matter what */
  27         compact(&buf, &src,sizeof(DOUBLE));
  28 }