d_tanh X
1: /* 2: * "@(#)d_tanh.c 1.1" 3: */ 4: 5: double d_tanh(x) 6: double *x; 7: { 8: double tanh(); 9: return( tanh(*x) ); 10: }