mirror of
https://git.planet-casio.com/Lephenixnoir/OpenLibm.git
synced 2025-01-01 06:23:39 +01:00
32 lines
856 B
Fortran
32 lines
856 B
Fortran
*DECK ZSHCH
|
|
SUBROUTINE ZSHCH (ZR, ZI, CSHR, CSHI, CCHR, CCHI)
|
|
C***BEGIN PROLOGUE ZSHCH
|
|
C***SUBSIDIARY
|
|
C***PURPOSE Subsidiary to ZBESH and ZBESK
|
|
C***LIBRARY SLATEC
|
|
C***TYPE ALL (CSHCH-A, ZSHCH-A)
|
|
C***AUTHOR Amos, D. E., (SNL)
|
|
C***DESCRIPTION
|
|
C
|
|
C ZSHCH COMPUTES THE COMPLEX HYPERBOLIC FUNCTIONS CSH=SINH(X+I*Y)
|
|
C AND CCH=COSH(X+I*Y), WHERE I**2=-1.
|
|
C
|
|
C***SEE ALSO ZBESH, ZBESK
|
|
C***ROUTINES CALLED (NONE)
|
|
C***REVISION HISTORY (YYMMDD)
|
|
C 830501 DATE WRITTEN
|
|
C 910415 Prologue converted to Version 4.0 format. (BAB)
|
|
C***END PROLOGUE ZSHCH
|
|
C
|
|
DOUBLE PRECISION CCHI, CCHR, CH, CN, CSHI, CSHR, SH, SN, ZI, ZR
|
|
C***FIRST EXECUTABLE STATEMENT ZSHCH
|
|
SH = SINH(ZR)
|
|
CH = COSH(ZR)
|
|
SN = SIN(ZI)
|
|
CN = COS(ZI)
|
|
CSHR = SH*CN
|
|
CSHI = CH*SN
|
|
CCHR = CH*CN
|
|
CCHI = SH*SN
|
|
RETURN
|
|
END
|