110525Sdlw /* 2*22955Skre * Copyright (c) 1980 Regents of the University of California. 3*22955Skre * All rights reserved. The Berkeley software License Agreement 4*22955Skre * specifies the terms and conditions for redistribution. 5*22955Skre * 6*22955Skre * @(#)r_cosh.c 5.1 06/07/85 710525Sdlw */ 810525Sdlw 910525Sdlw double r_cosh(x) 1010525Sdlw float *x; 1110525Sdlw { 1210525Sdlw double cosh(); 1310525Sdlw return( cosh(*x) ); 1410525Sdlw } 15