source: branches/profile/EISPACK/d_sign.cxx

Last change on this file was 2, checked in by oldcode, 20 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 144 bytes
Line 
1#include "f2c.h"
2extern "C" {
3double d_sign(doublereal *a, doublereal *b)
4{
5double x;
6x = (*a >= 0 ? *a : - *a);
7return( *b >= 0 ? x : -x);
8}
9}
Note: See TracBrowser for help on using the repository browser.