libm/e_lgamma.c

   1
   2 /* @(#)e_lgamma.c 5.1 93/09/24 */
   3 /*
   4  * ====================================================
   5  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
   6  *
   7  * Developed at SunPro, a Sun Microsystems, Inc. business.
   8  * Permission to use, copy, modify, and distribute this
   9  * software is freely granted, provided that this notice
  10  * is preserved.
  11  * ====================================================
  12  *
  13  */
  14
  15 /* __ieee754_lgamma(x)
  16  * Return the logarithm of the Gamma function of x.
  17  *
  18  * Method: call __ieee754_lgamma_r
  19  */
  20
  21 #include "math_private.h"
  22
  23 extern int signgam;
  24
  25 #ifdef __STDC__
  26         //__private_extern__
  27         double __ieee754_lgamma(double x)
  28 #else
  29         double __ieee754_lgamma(x)
  30         double x;
  31 #endif
  32 {
  33         return __ieee754_lgamma_r(x,&signgam);
  34 }