110536Sdlw /* 2*22967Skre * Copyright (c) 1980 Regents of the University of California. 3*22967Skre * All rights reserved. The Berkeley software License Agreement 4*22967Skre * specifies the terms and conditions for redistribution. 5*22967Skre * 6*22967Skre * @(#)r_sinh.c 5.1 06/07/85 710536Sdlw */ 810536Sdlw 910536Sdlw double r_sinh(x) 1010536Sdlw float *x; 1110536Sdlw { 1210536Sdlw double sinh(); 1310536Sdlw return( sinh(*x) ); 1410536Sdlw } 15