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