1 2 3 4 5 6 7 8 9
#include "f2c.h" #undef abs #include <math.h> double r_tan (real * x) { return (tan (*x)); }