KTH framework for Nek5000 toolboxes; testing version  0.0.1
zladiv.f
Go to the documentation of this file.
1  DOUBLE COMPLEX FUNCTION zladiv( X, Y )
2 *
3 * -- LAPACK auxiliary routine (version 3.0) --
4 * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
5 * Courant Institute, Argonne National Lab, and Rice University
6 * October 31, 1992
7 *
8 * .. Scalar Arguments ..
9  COMPLEX*16 x, y
10 * ..
11 *
12 * Purpose
13 * =======
14 *
15 * ZLADIV := X / Y, where X and Y are complex. The computation of X / Y
16 * will not overflow on an intermediary step unless the results
17 * overflows.
18 *
19 * Arguments
20 * =========
21 *
22 * X (input) COMPLEX*16
23 * Y (input) COMPLEX*16
24 * The complex scalars X and Y.
25 *
26 * =====================================================================
27 *
28 * .. Local Scalars ..
29  DOUBLE PRECISION zi, zr
30 * ..
31 * .. External Subroutines ..
32  EXTERNAL dladiv
33 * ..
34 * .. Intrinsic Functions ..
35  INTRINSIC dble, dcmplx, dimag
36 * ..
37 * .. Executable Statements ..
38 *
39  CALL dladiv( dble( x ), dimag( x ), dble( y ), dimag( y ), zr,
40  $ zi )
41  zladiv = dcmplx( zr, zi )
42 *
43  RETURN
44 *
45 * End of ZLADIV
46 *
47  END
subroutine dladiv(A, B, C, D, P, Q)
Definition: dladiv.f:2
double complex function zladiv(X, Y)
Definition: zladiv.f:2