Skip to main content

Browse the archive

Revision 32c16d43c778976267f6ae3cee4c863caf719e03 authored by M. Helena Gon\xe7alves on 01 February 2012, 00:00:00 UTC, committed by Gabor Csardi on 01 February 2012, 00:00:00 UTC 
None
1 parent ade4b69
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