00001 SUBROUTINE ZSHCH(ZR, ZI, CSHR, CSHI, CCHR, CCHI) 00002 C***BEGIN PROLOGUE ZSHCH 00003 C***REFER TO ZBESK,ZBESH 00004 C 00005 C ZSHCH 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 ZSHCH 00010 C 00011 DOUBLE PRECISION CCHI, CCHR, CH, CN, CSHI, CSHR, SH, SN, ZI, ZR, 00012 * DCOSH, DSINH 00013 SH = DSINH(ZR) 00014 CH = DCOSH(ZR) 00015 SN = DSIN(ZI) 00016 CN = DCOS(ZI) 00017 CSHR = SH*CN 00018 CSHI = CH*SN 00019 CCHR = CH*CN 00020 CCHI = SH*SN 00021 RETURN 00022 END
1.7.1
