Commit | Line | Data |
---|---|---|
3594cd90 KM |
1 | /* Copyright (c) 1979 Regents of the University of California */ |
2 | ||
fce84c6e | 3 | static char sccsid[] = "@(#)SQRT.c 1.2 %G%"; |
3594cd90 KM |
4 | |
5 | #include "h01errs.h" | |
fce84c6e | 6 | #include <math.h> |
3594cd90 KM |
7 | |
8 | double | |
9 | SQRT(value) | |
10 | ||
11 | double value; | |
12 | { | |
fce84c6e | 13 | if (value < 0) { |
3594cd90 KM |
14 | ERROR(ESQRT, value); |
15 | return; | |
16 | } | |
17 | return sqrt(value); | |
18 | } |