00001 SUBROUTINE CSHCH(Z, CSH, CCH) 00002 C***BEGIN PROLOGUE CSHCH 00003 C***REFER TO CBESK,CBESH 00004 C 00005 C CSHCH COMPUTES THE COMPLEX HYPERBOLIC FUNCTIONS CSH=SINH(X+I*Y) 00006 C AND CCH=COSH(X+I*Y), WHERE I**2=-1. 00007 C 00008 C***ROUTINES CALLED (NONE) 00009 C***END PROLOGUE CSHCH 00010 COMPLEX CCH, CSH, Z 00011 REAL CCHI, CCHR, CH, CN, CSHI, CSHR, SH, SN, X, Y, COSH, SINH 00012 X = REAL(Z) 00013 Y = AIMAG(Z) 00014 SH = SINH(X) 00015 CH = COSH(X) 00016 SN = SIN(Y) 00017 CN = COS(Y) 00018 CSHR = SH*CN 00019 CSHI = CH*SN 00020 CSH = CMPLX(CSHR,CSHI) 00021 CCHR = CH*CN 00022 CCHI = SH*SN 00023 CCH = CMPLX(CCHR,CCHI) 00024 RETURN 00025 END
1.7.1
