GNU Octave  3.8.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
zshch.f
Go to the documentation of this file.
1  SUBROUTINE zshch(ZR, ZI, CSHR, CSHI, CCHR, CCHI)
2 C***BEGIN PROLOGUE ZSHCH
3 C***REFER TO ZBESK,ZBESH
4 C
5 C ZSHCH COMPUTES THE COMPLEX HYPERBOLIC FUNCTIONS CSH=SINH(X+I*Y)
6 C AND CCH=COSH(X+I*Y), WHERE I**2=-1.
7 C
8 C***ROUTINES CALLED (NONE)
9 C***END PROLOGUE ZSHCH
10 C
11  DOUBLE PRECISION cchi, cchr, ch, cn, cshi, cshr, sh, sn, zi, zr,
12  * dcosh, dsinh
13  sh = dsinh(zr)
14  ch = dcosh(zr)
15  sn = dsin(zi)
16  cn = dcos(zi)
17  cshr = sh*cn
18  cshi = ch*sn
19  cchr = ch*cn
20  cchi = sh*sn
21  RETURN
22  END