libf2c/libF77/r_atn2.c - gcc - Git at Google

 #include "f2c.h"

 #undef abs
 #include <math.h>
 double
 r_atn2 (real * x, real * y)
 {
   return (atan2 (*x, *y));
 }
	#include "f2c.h"

	#undef abs
	#include <math.h>
	double
	r_atn2 (real * x, real * y)
	{
	return (atan2 (x, y));
	}