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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1028 - (hide 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 jgs 102 // $Id$
2     /*
3 elspeth 615 ************************************************************
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 jgs 102 */
13    
14     #if !defined escript_UnaryFuncs_20041124_H
15     #define escript_UnaryFuncs_20041124_H
16 woo409 757 #include "system_dep.h"
17 jgs 102
18     namespace escript {
19    
20     inline
21     double
22     fsign(double x)
23     {
24 jgs 123 if (x == 0) {
25     return 0;
26     } else {
27     return x/fabs(x);
28     }
29 jgs 102 }
30    
31 gross 1028 /* 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 jgs 102 } // 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