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

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

Defined functions