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