110521Sdlw /* 222949Skre * Copyright (c) 1980 Regents of the University of California. 322949Skre * All rights reserved. The Berkeley software License Agreement 422949Skre * specifies the terms and conditions for redistribution. 522949Skre * 6*23854Sjerry * @(#)r_atan.c 5.2 07/08/85 710521Sdlw */ 810521Sdlw 9*23854Sjerry float r_atan(x) 1010521Sdlw float *x; 1110521Sdlw { 1210521Sdlw double atan(); 1310521Sdlw return( atan(*x) ); 1410521Sdlw } 15