/[escript]/trunk/escript/src/UnaryFuncs.h
ViewVC logotype

Contents of /trunk/escript/src/UnaryFuncs.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1028 - (show annotations)
Wed Mar 14 00:15:24 2007 UTC (12 years, 7 months ago) by gross
File MIME type: text/plain
File size: 1126 byte(s)
modifications to be compliant with _WIN32. The substitutes for asinh, acosh, atanh are still missing (erf will through an exception)
1 // $Id$
2 /*
3 ************************************************************
4 * Copyright 2006 by ACcESS MNRF *
5 * *
6 * http://www.access.edu.au *
7 * Primary Business: Queensland, Australia *
8 * Licensed under the Open Software License version 3.0 *
9 * http://www.opensource.org/licenses/osl-3.0.php *
10 * *
11 ************************************************************
12 */
13
14 #if !defined escript_UnaryFuncs_20041124_H
15 #define escript_UnaryFuncs_20041124_H
16 #include "system_dep.h"
17
18 namespace escript {
19
20 inline
21 double
22 fsign(double x)
23 {
24 if (x == 0) {
25 return 0;
26 } else {
27 return x/fabs(x);
28 }
29 }
30
31 /* substitute functions for _WIN32 */
32 inline
33 double
34 asinh_substitute(double x)
35 {
36 return 0;
37 }
38
39 inline
40 double
41 acosh_substitute(double x)
42 {
43 return 0;
44 }
45
46 inline
47 double
48 atanh_substitute(double x)
49 {
50 return 0;
51 }
52
53
54 } // end of namespace
55 #endif

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.26