2
COMPLEX FUNCTION CTANH (Z)
3
C***BEGIN PROLOGUE CTANH
4
C***PURPOSE Compute the complex hyperbolic tangent.
5
C***LIBRARY SLATEC (FNLIB)
7
C***TYPE COMPLEX (CTANH-C)
8
C***KEYWORDS ELEMENTARY FUNCTIONS, FNLIB, HYPERBOLIC TANGENT
9
C***AUTHOR Fullerton, W., (LANL)
12
C CTANH(Z) calculates the complex hyperbolic tangent of complex
13
C argument Z. Z is in units of radians.
16
C***ROUTINES CALLED CTAN
17
C***REVISION HISTORY (YYMMDD)
19
C 861211 REVISION DATE from Version 3.2
20
C 891214 Prologue converted to Version 4.0 format. (BAB)
21
C***END PROLOGUE CTANH
25
C***FIRST EXECUTABLE STATEMENT CTANH
26
CTANH = -CI*CTAN(CI*Z)