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