57 static long double primary(long double);
88 		return (primary(x)-log1pl(x))-logl(x);  in __k_lgammal()
90 		return primary(x-y)-logl(x);  in __k_lgammal()
92 		return primary(x-y);  in __k_lgammal()
94 		return primary(x-y)+logl(x-c1);  in __k_lgammal()
96 		return primary(x-y)+logl((x-c1)*(x-c2));  in __k_lgammal()
98 		return primary(x-y)+logl((x-c1)*(x-c2)*(x-c3));  in __k_lgammal()
100 		return primary(x-y)+logl((x-c1)*(x-c2)*(x-c3)*(x-c4));  in __k_lgammal()
102 		return primary(x-y)+logl((x-c1)*(x-c2)*(x-c3)*(x-c4)*(x-c5));  in __k_lgammal()
104 		return primary(x-y)+  in __k_lgammal()
301 primary(long double s) {	/* assume |s|<=0.5 */  in primary()  function