FACT++  1.0
double _swapd ( double  d)

Definition at line 11 of file swap.c.

12 {
13  double r[2];
14  register char *p, *q;
15  register int n;
16 
17  p = (char *) &r[1];
18  q = (char *) &d;
19  for( n = sizeof(double)+1; --n; *--p = *q++) ;
20  return r[0];
21 }