contrib/libf2c/libF77/r_abs.c

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