ARB
d_sign.cxx
Go to the documentation of this file.
1 #include "f2c.h"
2 extern "C" {
3 double d_sign(doublereal *a, doublereal *b)
4 {
5 double x;
6 x = (*a >= 0 ? *a : - *a);
7 return( *b >= 0 ? x : -x);
8 }
9 }
double doublereal
Definition: f2c.h:14
double d_sign(doublereal *a, doublereal *b)
Definition: d_sign.cxx:3