sgn.c 150 B

12345678910111213141516
  1. /* $Id$ */
  2. _sgn(v)
  3. double v;
  4. {
  5. if( v>0) return(1);
  6. if( v<0) return(-1);
  7. return(0);
  8. }
  9. _forsgn(v)
  10. double v;
  11. {
  12. if (v >= 0) return 1;
  13. return -1;
  14. }