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

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

Defined functions