xzexp.f

Go to the documentation of this file.

      SUBROUTINE xzexp(AR, AI, BR, BI)
C***BEGIN PROLOGUE  XZEXP
C***REFER TO  ZBESH,ZBESI,ZBESJ,ZBESK,ZBESY,ZAIRY,ZBIRY
C
C     DOUBLE PRECISION COMPLEX EXPONENTIAL FUNCTION B=EXP(A)
C
C***ROUTINES CALLED  (NONE)
C***END PROLOGUE  XZEXP
      DOUBLE PRECISION AR, AI, BR, BI, ZM, CA, CB
      zm = dexp(ar)
      ca = zm*dcos(ai)
      cb = zm*dsin(ai)
      br = ca
      bi = cb
      RETURN
      END