1 SUBROUTINE CSHCH(Z, CSH, CCH) 2C***BEGIN PROLOGUE CSHCH 3C***REFER TO CBESK,CBESH 4C 5C CSHCH COMPUTES THE COMPLEX HYPERBOLIC FUNCTIONS CSH=SINH(X+I*Y) 6C AND CCH=COSH(X+I*Y), WHERE I**2=-1. 7C 8C***ROUTINES CALLED (NONE) 9C***END PROLOGUE CSHCH 10 COMPLEX CCH, CSH, Z 11 REAL CCHI, CCHR, CH, CN, CSHI, CSHR, SH, SN, X, Y, COSH, SINH 12 X = REAL(Z) 13 Y = AIMAG(Z) 14 SH = SINH(X) 15 CH = COSH(X) 16 SN = SIN(Y) 17 CN = COS(Y) 18 CSHR = SH*CN 19 CSHI = CH*SN 20 CSH = CMPLX(CSHR,CSHI) 21 CCHR = CH*CN 22 CCHI = SH*SN 23 CCH = CMPLX(CCHR,CCHI) 24 RETURN 25 END 26