qpms/amos/zexp.f

17 lines
405 B
FortranFixed
Raw Normal View History

SUBROUTINE AZEXP(AR, AI, BR, BI)
C***BEGIN PROLOGUE AZEXP
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 AZEXP
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