xref: /csrg-svn/usr.bin/f77/libF77/d_atan.c (revision 10452)
1*10452Sdlw /*
2*10452Sdlw  *	"@(#)d_atan.c	1.1"
3*10452Sdlw  */
4*10452Sdlw 
5*10452Sdlw double d_atan(x)
6*10452Sdlw double *x;
7*10452Sdlw {
8*10452Sdlw double atan();
9*10452Sdlw return( atan(*x) );
10*10452Sdlw }
11