UNIX 7th Ed. - /usr/src/libF77/d_abs.c

   1: double d_abs(x)
   2: double *x;
   3: {
   4: if(*x >= 0)
   5:     return(*x);
   6: return(- *x);
   7: }

Defined functions