single ALGAMA( single arg ) { //=========================== if( fabs( arg ) >= big ) return( xinf ); if( arg == 0.0 ) return( xinf ); return( __lgamma( arg, &xinf ) ); }
long double __q_lgamma(long double *arg) { return ( __lgamma( (double)(*arg) ) ); }