contrib/libf2c/libF77/d_abs.c

   1 #include "f2c.h"
   2
   3 #ifdef KR_headers
   4 double d_abs(x) doublereal *x;
   5 #else
   6 double d_abs(doublereal *x)
   7 #endif
   8 {
   9 if(*x >= 0)
  10         return(*x);
  11 return(- *x);
  12 }