significand.c raw

   1  #define _GNU_SOURCE
   2  #include <math.h>
   3  
   4  double significand(double x)
   5  {
   6  	return scalbn(x, -ilogb(x));
   7  }
   8