xref: /csrg-svn/usr.bin/f77/libF77/d_acos.c (revision 22841)
110450Sdlw /*
2*22841Skre  * Copyright (c) 1980 Regents of the University of California.
3*22841Skre  * All rights reserved.  The Berkeley software License Agreement
4*22841Skre  * specifies the terms and conditions for redistribution.
5*22841Skre  *
6*22841Skre  *	@(#)d_acos.c	5.1	06/07/85
710450Sdlw  */
810450Sdlw 
910450Sdlw double d_acos(x)
1010450Sdlw double *x;
1110450Sdlw {
1210450Sdlw double acos();
1310450Sdlw return( acos(*x) );
1410450Sdlw }
15