00001 SUBROUTINE XZEXP(AR, AI, BR, BI) 00002 C***BEGIN PROLOGUE XZEXP 00003 C***REFER TO ZBESH,ZBESI,ZBESJ,ZBESK,ZBESY,ZAIRY,ZBIRY 00004 C 00005 C DOUBLE PRECISION COMPLEX EXPONENTIAL FUNCTION B=EXP(A) 00006 C 00007 C***ROUTINES CALLED (NONE) 00008 C***END PROLOGUE XZEXP 00009 DOUBLE PRECISION AR, AI, BR, BI, ZM, CA, CB 00010 ZM = DEXP(AR) 00011 CA = ZM*DCOS(AI) 00012 CB = ZM*DSIN(AI) 00013 BR = CA 00014 BI = CB 00015 RETURN 00016 END
1.7.1
