#include "f2c.h"#ifdef KR_headersdouble atan();double r_atan(x) real *x;#else#undef abs#include <math.h>double r_atan(real *x)#endif{return( atan(*x) );}
#include "f2c.h"#ifdef KR_headersdouble atan();double r_atan(x) real *x;#else#undef abs#include <math.h>double r_atan(real *x)#endif{return( atan(*x) );}