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