X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=lib%2Fatanl.c;h=16c8dc12bf0fad59fa2ac93d3687ad2e18587ab6;hb=a9e638f0e4d6928c12f2b374bc369bb1ecf2cdfe;hp=07b8f6a59300ea82ff6a5f61cf1417d5e14e271f;hpb=267a39bafd249d7eb9c37df06dc6defcf41cb343;p=gnulib.git diff --git a/lib/atanl.c b/lib/atanl.c index 07b8f6a59..16c8dc12b 100644 --- a/lib/atanl.c +++ b/lib/atanl.c @@ -1,3 +1,25 @@ +/* Copyright 2001 by Stephen L. Moshier + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; see the file COPYING. + If not, write to the Free Software Foundation, + 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ + +#include + +/* Specification. */ +#include + /* s_atanl.c * * Inverse circular tangent for 128-bit long double precision @@ -42,26 +64,6 @@ * */ -/* Copyright 2001 by Stephen L. Moshier - - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2, or (at your option) - any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program; see the file COPYING. - If not, write to the Free Software Foundation, - 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ - -#include "mathl.h" - -#include /* arctan(k/8), k = 0, ..., 82 */ static const long double atantbl[84] = {