xref: /csrg-svn/usr.bin/f77/libF77/d_cosh.c (revision 22850)
110456Sdlw /*
2*22850Skre  * Copyright (c) 1980 Regents of the University of California.
3*22850Skre  * All rights reserved.  The Berkeley software License Agreement
4*22850Skre  * specifies the terms and conditions for redistribution.
5*22850Skre  *
6*22850Skre  *	@(#)d_cosh.c	5.1	06/07/85
710456Sdlw  */
810456Sdlw 
910456Sdlw double d_cosh(x)
1010456Sdlw double *x;
1110456Sdlw {
1210456Sdlw double cosh();
1310456Sdlw return( cosh(*x) );
1410456Sdlw }
15