110471Sdlw /* 2*22878Skre * Copyright (c) 1980 Regents of the University of California. 3*22878Skre * All rights reserved. The Berkeley software License Agreement 4*22878Skre * specifies the terms and conditions for redistribution. 5*22878Skre * 6*22878Skre * @(#)d_tanh.c 5.1 06/07/85 710471Sdlw */ 810471Sdlw 910471Sdlw double d_tanh(x) 1010471Sdlw double *x; 1110471Sdlw { 1210471Sdlw double tanh(); 1310471Sdlw return( tanh(*x) ); 1410471Sdlw } 15