ftp.nice.ch/pub/next/developer/hardware/m68k/SoftwareMathCoprocFor68040.2.0.N.sa.tar.gz#/libjv/pow.c

This is pow.c in view mode; [Download] [Up]

double jv_pow(x,y)
double x,y;
{
	double jv_exp(double);
	double jv_log(double);
/*
	Forget problems with pow(0,0)
*/
	if ( x == 0. ) return(0.);
	if ( y == 0. ) return(1.);
	return(jv_exp(y*jv_log(x)));
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.