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