1 /* 2 * "@(#)d_tan.c 1.1" 3 */ 4 5 double d_tan(x) 6 double *x; 7 { 8 double tan(); 9 return( tan(*x) ); 10 } 11