d_sign.c
Go to the documentation of this file.
00001 #include "f2c.h"
00002 #ifdef __cplusplus
00003 extern "C" {
00004 #endif
00005 
00006 #ifdef KR_headers
00007 double d_sign(a,b) doublereal *a, *b;
00008 #else
00009 double d_sign(doublereal *a, doublereal *b)
00010 #endif
00011 {
00012 double x;
00013 x = (*a >= 0 ? *a : - *a);
00014 return( *b >= 0 ? x : -x);
00015 }
00016 #ifdef __cplusplus
00017 }
00018 #endif


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:55:35