110525Sdlw /* 222955Skre * Copyright (c) 1980 Regents of the University of California. 322955Skre * All rights reserved. The Berkeley software License Agreement 422955Skre * specifies the terms and conditions for redistribution. 522955Skre * 6*23854Sjerry * @(#)r_cosh.c 5.2 07/08/85 710525Sdlw */ 810525Sdlw 9*23854Sjerry float r_cosh(x) 1010525Sdlw float *x; 1110525Sdlw { 1210525Sdlw double cosh(); 1310525Sdlw return( cosh(*x) ); 1410525Sdlw } 15