11702Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21702Smckusick 3*1818Smckusic static char sccsid[] = "@(#)SQRT.c 1.2 11/20/80"; 41702Smckusick 51702Smckusick #include "h01errs.h" 6*1818Smckusic #include <math.h> 71702Smckusick 81702Smckusick double 91702Smckusick SQRT(value) 101702Smckusick 111702Smckusick double value; 121702Smckusick { 13*1818Smckusic if (value < 0) { 141702Smckusick ERROR(ESQRT, value); 151702Smckusick return; 161702Smckusick } 171702Smckusick return sqrt(value); 181702Smckusick } 19