GNU Octave  3.8.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
xzexp.f
Go to the documentation of this file.
1  SUBROUTINE xzexp(AR, AI, BR, BI)
2 C***BEGIN PROLOGUE XZEXP
3 C***REFER TO ZBESH,ZBESI,ZBESJ,ZBESK,ZBESY,ZAIRY,ZBIRY
4 C
5 C DOUBLE PRECISION COMPLEX EXPONENTIAL FUNCTION B=EXP(A)
6 C
7 C***ROUTINES CALLED (NONE)
8 C***END PROLOGUE XZEXP
9  DOUBLE PRECISION ar, ai, br, bi, zm, ca, cb
10  zm = dexp(ar)
11  ca = zm*dcos(ai)
12  cb = zm*dsin(ai)
13  br = ca
14  bi = cb
15  RETURN
16  END