src/numerical/slatec/fortran/zshch.f

   1 *DECK ZSHCH
   2       SUBROUTINE ZSHCH (ZR, ZI, CSHR, CSHI, CCHR, CCHI)
   3 C***BEGIN PROLOGUE  ZSHCH
   4 C***SUBSIDIARY
   5 C***PURPOSE  Subsidiary to ZBESH and ZBESK
   6 C***LIBRARY   SLATEC
   7 C***TYPE      ALL (CSHCH-A, ZSHCH-A)
   8 C***AUTHOR  Amos, D. E., (SNL)
   9 C***DESCRIPTION
  10 C
  11 C     ZSHCH COMPUTES THE COMPLEX HYPERBOLIC FUNCTIONS CSH=SINH(X+I*Y)
  12 C     AND CCH=COSH(X+I*Y), WHERE I**2=-1.
  13 C
  14 C***SEE ALSO  ZBESH, ZBESK
  15 C***ROUTINES CALLED  (NONE)
  16 C***REVISION HISTORY  (YYMMDD)
  17 C   830501  DATE WRITTEN
  18 C   910415  Prologue converted to Version 4.0 format.  (BAB)
  19 C***END PROLOGUE  ZSHCH
  20 C
  21       DOUBLE PRECISION CCHI, CCHR, CH, CN, CSHI, CSHR, SH, SN, ZI, ZR
  22 C***FIRST EXECUTABLE STATEMENT  ZSHCH
  23       SH = SINH(ZR)
  24       CH = COSH(ZR)
  25       SN = SIN(ZI)
  26       CN = COS(ZI)
  27       CSHR = SH*CN
  28       CSHI = CH*SN
  29       CCHR = CH*CN
  30       CCHI = SH*SN
  31       RETURN
  32       END