Revision 10ef4410c16710d7caf8c0882b7efbac894d49ed authored by M. Helena Gonçalves on 22 September 2012, 00:00:00 UTC, committed by Gabor Csardi on 22 September 2012, 00:00:00 UTC 
version 1.1-1-dup
1 parent 3f407ee
Raw File
d1mach.c
#include <stdio.h>
#include <float.h>
#include <math.h>
double d1mach_(long *i)
{
       switch(*i){
         case 1: return DBL_MIN;
         case 2: return DBL_MAX;
         case 3: return DBL_EPSILON/FLT_RADIX;
         case 4: return DBL_EPSILON;
         case 5: return log10((double)FLT_RADIX);
  	 default: return 0.0;
         }
 }
back to top