source: branches/GNU/src/gcc/libf2c/libF77/d_sign.c@ 1391

Last change on this file since 1391 was 1391, checked in by bird, 22 years ago

GCC v3.3.3 sources.
  • Property cvs2svn:cvs-rev set to 1.1.1.2
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 138 bytes
Line 
1#include "f2c.h"
2
3double
4d_sign (doublereal * a, doublereal * b)
5{
6 double x;
7 x = (*a >= 0 ? *a : -*a);
8 return (*b >= 0 ? x : -x);
9}
Note: See TracBrowser for help on using the repository browser.