1*10469Sdlw /* 2*10469Sdlw * "@(#)d_sqrt.c 1.1" 3*10469Sdlw */ 4*10469Sdlw 5*10469Sdlw double d_sqrt(x) 6*10469Sdlw double *x; 7*10469Sdlw { 8*10469Sdlw double sqrt(); 9*10469Sdlw return( sqrt(*x) ); 10*10469Sdlw } 11