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