Mercurial > octave

comparison liboctave/acosh.c @ 1249:86fc40576f22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-04-11 01:03:08 by jwe]
author jwe
date Tue, 11 Apr 1995 01:03:57 +0000
parents 5972ef4972cc
children fa24599e3d2c
comparison
equal deleted inserted replaced
1248:961d2acf5e86 1249:86fc40576f22
19 Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 19 Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
20 20
21 */ 21 */
22 22
23 #ifdef HAVE_CONFIG_H 23 #ifdef HAVE_CONFIG_H
24 #include "config.h" 24 #include <config.h>
25 #endif 25 #endif
26 26
27 #ifndef HAVE_ACOSH 27 #ifndef HAVE_ACOSH
28 28
29 #include "f77-uscore.h" 29 #include "f77-uscore.h"
30 30
31 extern double F77_FCN (dacosh) (double*); 31 extern double F77_FCN (dacosh) (const double&);
32 32
33 double 33 double
34 acosh (double x) 34 acosh (double x)
35 { 35 {
36 return F77_FCN (dacosh) (&x); 36 return F77_FCN (dacosh) (x);
37 } 37 }
38 38
39 #endif 39 #endif
40 40
41 /* 41 /*