140865Sbostic /*- 2*62092Sbostic * Copyright (c) 1982, 1993 3*62092Sbostic * The Regents of the University of California. All rights reserved. 440865Sbostic * 540865Sbostic * %sccs.include.redist.c% 640865Sbostic */ 75718Smckusick 840865Sbostic #ifndef lint 9*62092Sbostic static char sccsid[] = "@(#)ATAN.c 8.1 (Berkeley) 06/06/93"; 1040865Sbostic #endif /* not lint */ 115718Smckusick 125718Smckusick #include <math.h> 135718Smckusick extern int errno; 145718Smckusick 155718Smckusick double ATAN(value)165718SmckusickATAN(value) 175718Smckusick double value; 185718Smckusick { 195718Smckusick double result; 205718Smckusick 215718Smckusick errno = 0; 225718Smckusick result = atan(value); 235718Smckusick if (errno != 0) { 245718Smckusick ERROR("Argument %e is out of the domain of atan\n", value); 255718Smckusick } 265718Smckusick return result; 275718Smckusick } 28