110537Sdlw /* 2*22968Skre * Copyright (c) 1980 Regents of the University of California. 3*22968Skre * All rights reserved. The Berkeley software License Agreement 4*22968Skre * specifies the terms and conditions for redistribution. 5*22968Skre * 6*22968Skre * @(#)r_sqrt.c 5.1 06/07/85 710537Sdlw */ 810537Sdlw 910537Sdlw double r_sqrt(x) 1010537Sdlw float *x; 1110537Sdlw { 1210537Sdlw double sqrt(); 1310537Sdlw return( sqrt(*x) ); 1410537Sdlw } 15