110469Sdlw /* 2*22875Skre * Copyright (c) 1980 Regents of the University of California. 3*22875Skre * All rights reserved. The Berkeley software License Agreement 4*22875Skre * specifies the terms and conditions for redistribution. 5*22875Skre * 6*22875Skre * @(#)d_sqrt.c 5.1 06/07/85 710469Sdlw */ 810469Sdlw d_sqrt(x)910469Sdlwdouble d_sqrt(x) 1010469Sdlw double *x; 1110469Sdlw { 1210469Sdlw double sqrt(); 1310469Sdlw return( sqrt(*x) ); 1410469Sdlw } 15