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
dladiv
subroutine dladiv(A, B, C, D, P, Q)
Definition:
dladiv.f:2
zladiv
double complex function zladiv(X, Y)
Definition:
zladiv.f:2
Nek5000
3rd_party
blasLapack
zladiv.f
Generated on Tue Jun 4 2024 12:44:42 for KTH framework for Nek5000 toolboxes; testing version by
1.9.1