home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / JPLC2.ZIP / SGN.C < prev    next >
Encoding:
C/C++ Source or Header  |  1988-07-22  |  544 b   |  19 lines
  1. /* 1.0  07-06-84 */
  2. /************************************************************************
  3.  *            Robert C. Tausworthe                *
  4.  *            Jet Propulsion Laboratory            *
  5.  *            Pasadena, CA 91009        1984        *
  6.  ************************************************************************/
  7.  
  8. #include "defs.h"
  9.  
  10. /************************************************************************/
  11.     double
  12. sgn(x)            /* return double sgn function of x        */
  13.  
  14. /*----------------------------------------------------------------------*/
  15. double x;
  16. {
  17.     return SGN(x);
  18. }
  19.