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