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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 615 - (hide annotations)
Wed Mar 22 02:12:00 2006 UTC (13 years, 6 months ago) by elspeth
File MIME type: text/plain
File size: 883 byte(s)
More copyright information.

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    
17     namespace escript {
18    
19     inline
20     double
21     fsign(double x)
22     {
23 jgs 123 if (x == 0) {
24     return 0;
25     } else {
26     return x/fabs(x);
27     }
28 jgs 102 }
29    
30     } // end of namespace
31     #endif

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26