GNU Octave  6.2.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
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
subroutine xzexp(AR, AI, BR, BI)
Definition: xzexp.f:2