Mercurial > octave
comparison liboctave/atanh.c @ 1081:5972ef4972cc
[project @ 1995-01-27 16:45:21 by jwe]
Initial revision
| author | jwe |
|---|---|
| date | Fri, 27 Jan 1995 16:45:21 +0000 |
| parents | |
| children | 668dc3c012b5 |
comparison
equal
deleted
inserted
replaced
| 1080:723f3a0a9728 | 1081:5972ef4972cc |
|---|---|
| 1 /* | |
| 2 | |
| 3 Copyright (C) 1995 John W. Eaton | |
| 4 | |
| 5 This file is part of Octave. | |
| 6 | |
| 7 Octave is free software; you can redistribute it and/or modify it | |
| 8 under the terms of the GNU General Public License as published by the | |
| 9 Free Software Foundation; either version 2, or (at your option) any | |
| 10 later version. | |
| 11 | |
| 12 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
| 18 along with Octave; see the file COPYING. If not, write to the Free | |
| 19 Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
| 20 | |
| 21 */ | |
| 22 | |
| 23 #ifdef HAVE_CONFIG_H | |
| 24 #include "config.h" | |
| 25 #endif | |
| 26 | |
| 27 #ifndef HAVE_ATANH | |
| 28 | |
| 29 #include "f77-uscore.h" | |
| 30 | |
| 31 extern double F77_FCN (datanh) (double*); | |
| 32 | |
| 33 double | |
| 34 atanh (double x) | |
| 35 { | |
| 36 return F77_FCN (datanh) (&x); | |
| 37 } | |
| 38 | |
| 39 #endif | |
| 40 | |
| 41 /* | |
| 42 ;;; Local Variables: *** | |
| 43 ;;; mode: C *** | |
| 44 ;;; page-delimiter: "^/\\*" *** | |
| 45 ;;; End: *** | |
| 46 */ |