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

   1: double r_cos(x)
   2: float *x;
   3: {
   4: double cos();
   5: return( cos(*x) );
   6: }

Defined functions