cshch.f

Go to the documentation of this file.

      SUBROUTINE cshch(Z, CSH, CCH)
C***BEGIN PROLOGUE  CSHCH
C***REFER TO  CBESK,CBESH
C
C     CSHCH COMPUTES THE COMPLEX HYPERBOLIC FUNCTIONS CSH=SINH(X+I*Y)
C     AND CCH=COSH(X+I*Y), WHERE I**2=-1.
C
C***ROUTINES CALLED  (NONE)
C***END PROLOGUE  CSHCH
      COMPLEX CCH, CSH, Z
      REAL CCHI, CCHR, CH, CN, CSHI, CSHR, SH, SN, X, Y, COSH, SINH
      x = real(z)
      y = aimag(z)
      sh = sinh(x)
      ch = cosh(x)
      sn = sin(y)
      cn = cos(y)
      cshr = sh*cn
      cshi = ch*sn
      csh = cmplx(cshr,cshi)
      cchr = ch*cn
      cchi = sh*sn
      cch = cmplx(cchr,cchi)
      RETURN
      END