4.3BSD - /usr/src/usr.lib/libpc/SQRT.c

   1: /* Copyright (c) 1979 Regents of the University of California */
   2: 
   3: static char sccsid[] = "@(#)SQRT.c 1.3 6/10/81";
   4: 
   5: #include <math.h>
   6: 
   7: double
   8: SQRT(value)
   9: 
  10:     double  value;
  11: {
  12:     if (value < 0) {
  13:         ERROR("Negative argument of %e to sqrt\n", value);
  14:         return;
  15:     }
  16:     return sqrt(value);
  17: }

Defined functions

Defined variables