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