Mercurial > octave

comparison liboctave/asinh.c @ 1243:668dc3c012b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-04-11 00:30:31 by jwe]
author jwe
date Tue, 11 Apr 1995 00:37:34 +0000
parents 5972ef4972cc
children fa24599e3d2c
comparison
equal deleted inserted replaced
1242:5fb4ee02da70 1243:668dc3c012b5
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_ASINH 27 #ifndef HAVE_ASINH
28 28
29 #include "f77-uscore.h" 29 #include "f77-uscore.h"
30 30
31 extern double F77_FCN (dasinh) (double*); 31 extern double F77_FCN (dasinh) (const double&);
32 32
33 double 33 double
34 asinh (double x) 34 asinh (double x)
35 { 35 {
36 return F77_FCN (dasinh) (&x); 36 return F77_FCN (dasinh) (x);
37 } 37 }
38 38
39 #endif 39 #endif
40 40
41 /* 41 /*