1*1702Smckusick /* Copyright (c) 1979 Regents of the University of California */ 2*1702Smckusick 3*1702Smckusick static char sccsid[] = "@(#)SQRT.c 1.1 10/30/80"; 4*1702Smckusick 5*1702Smckusick #include "h01errs.h" 6*1702Smckusick 7*1702Smckusick double 8*1702Smckusick SQRT(value) 9*1702Smckusick 10*1702Smckusick double value; 11*1702Smckusick { 12*1702Smckusick if (value <= 0) { 13*1702Smckusick ERROR(ESQRT, value); 14*1702Smckusick return; 15*1702Smckusick } 16*1702Smckusick return sqrt(value); 17*1702Smckusick } 18