mirror of
https://git.planet-casio.com/Lephenixnoir/OpenLibm.git
synced 2025-01-04 07:53:38 +01:00
30 lines
839 B
FortranFixed
30 lines
839 B
FortranFixed
|
*DECK CASINH
|
||
|
|
COMPLEX FUNCTION CASINH (Z)
|
||
|
|
C***BEGIN PROLOGUE CASINH
|
||
|
|
C***PURPOSE Compute the arc hyperbolic sine.
|
||
|
|
C***LIBRARY SLATEC (FNLIB)
|
||
|
|
C***CATEGORY C4C
|
||
|
|
C***TYPE COMPLEX (ASINH-S, DASINH-D, CASINH-C)
|
||
|
|
C***KEYWORDS ARC HYPERBOLIC SINE, ASINH, ELEMENTARY FUNCTIONS, FNLIB,
|
||
|
|
C INVERSE HYPERBOLIC SINE
|
||
|
|
C***AUTHOR Fullerton, W., (LANL)
|
||
|
|
C***DESCRIPTION
|
||
|
|
C
|
||
|
|
C CASINH(Z) calculates the complex arc hyperbolic sine of Z.
|
||
|
|
C
|
||
|
|
C***REFERENCES (NONE)
|
||
|
|
C***ROUTINES CALLED CASIN
|
||
|
|
C***REVISION HISTORY (YYMMDD)
|
||
|
|
C 770401 DATE WRITTEN
|
||
|
|
C 861211 REVISION DATE from Version 3.2
|
||
|
|
C 891214 Prologue converted to Version 4.0 format. (BAB)
|
||
|
|
C***END PROLOGUE CASINH
|
||
|
|
COMPLEX Z, CI, CASIN
|
||
|
|
SAVE CI
|
||
|
|
DATA CI /(0.,1.)/
|
||
|
|
C***FIRST EXECUTABLE STATEMENT CASINH
|
||
|
|
CASINH = -CI*CASIN (CI*Z)
|
||
|
|
C
|
||
|
|
RETURN
|
||
|
|
END
|