src/numerical/slatec/fortran/zexp.f

   1 *DECK ZEXP
   2       SUBROUTINE ZEXP (AR, AI, BR, BI)
   3 C***BEGIN PROLOGUE  ZEXP
   4 C***SUBSIDIARY
   5 C***PURPOSE  Subsidiary to ZBESH, ZBESI, ZBESJ, ZBESK, ZBESY, ZAIRY and
   6 C            ZBIRY
   7 C***LIBRARY   SLATEC
   8 C***TYPE      ALL (ZEXP-A)
   9 C***AUTHOR  Amos, D. E., (SNL)
  10 C***DESCRIPTION
  11 C
  12 C     DOUBLE PRECISION COMPLEX EXPONENTIAL FUNCTION B=EXP(A)
  13 C
  14 C***SEE ALSO  ZAIRY, ZBESH, ZBESI, ZBESJ, ZBESK, ZBESY, ZBIRY
  15 C***ROUTINES CALLED  (NONE)
  16 C***REVISION HISTORY  (YYMMDD)
  17 C   830501  DATE WRITTEN
  18 C   910415  Prologue converted to Version 4.0 format.  (BAB)
  19 C***END PROLOGUE  ZEXP
  20       DOUBLE PRECISION AR, AI, BR, BI, ZM, CA, CB
  21 C***FIRST EXECUTABLE STATEMENT  ZEXP
  22       ZM = EXP(AR)
  23       CA = ZM*COS(AI)
  24       CB = ZM*SIN(AI)
  25       BR = CA
  26       BI = CB
  27       RETURN
  28       END