110537Sdlw /* 222968Skre * Copyright (c) 1980 Regents of the University of California. 322968Skre * All rights reserved. The Berkeley software License Agreement 422968Skre * specifies the terms and conditions for redistribution. 522968Skre * 6*23854Sjerry * @(#)r_sqrt.c 5.2 07/08/85 710537Sdlw */ 810537Sdlw 9*23854Sjerry float r_sqrt(x) 1010537Sdlw float *x; 1110537Sdlw { 1210537Sdlw double sqrt(); 1310537Sdlw return( sqrt(*x) ); 1410537Sdlw } 15