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