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