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