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