1 /* @(#)e_lgamma.c 1.3 95/01/18 */
2 /*
3 * ====================================================
4 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
5 *
6 * Developed at SunSoft, a Sun Microsystems, Inc. business.
7 * Permission to use, copy, modify, and distribute this
8 * software is freely granted, provided that this notice
9 * is preserved.
10 * ====================================================
11 */
12
13 #include <sys/cdefs.h>
14 #include "math.h"
15 #include "math_private.h"
16
17 extern int signgam;
18
19 long double lgammal_r(long double x, int *signgamp);
20
21 long double
lgammal(long double x)22 lgammal(long double x)
23 {
24 return lgammal_r(x,&signgam);
25 }
26