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