ftp.nice.ch/pub/next/developer/hardware/m68k/libjv.1.0.N.s.tar.gz#/libjv/atan.c

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

double atan(x)
double x;
{
	double atan2();
	return(atan2(x,1.));
}

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