GNU Octave  6.2.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
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
subroutine zshch(ZR, ZI, CSHR, CSHI, CCHR, CCHI)
Definition: zshch.f:2