Example #1
0
single ALGAMA( single arg ) {
//===========================

    if( fabs( arg ) >= big ) return( xinf );
    if( arg == 0.0 ) return( xinf );
    return( __lgamma( arg, &xinf ) );
}
Example #2
0
long double __q_lgamma(long double *arg)
{
	return ( __lgamma( (double)(*arg) ) );
}