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