11702Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21702Smckusick 3*3869Smckusic static char sccsid[] = "@(#)SQRT.c 1.3 06/10/81"; 41702Smckusick 51818Smckusic #include <math.h> 61702Smckusick 71702Smckusick double 81702Smckusick SQRT(value) 91702Smckusick 101702Smckusick double value; 111702Smckusick { 121818Smckusic if (value < 0) { 13*3869Smckusic ERROR("Negative argument of %e to sqrt\n", value); 141702Smckusick return; 151702Smckusick } 161702Smckusick return sqrt(value); 171702Smckusick } 18