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