LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ cladiv()

complex function cladiv ( complex  X,
complex  Y 
)

CLADIV performs complex division in real arithmetic, avoiding unnecessary overflow.

Download CLADIV + dependencies [TGZ] [ZIP] [TXT]

Purpose:
 CLADIV := X / Y, where X and Y are complex.  The computation of X / Y
 will not overflow on an intermediary step unless the results
 overflows.
Parameters
[in]X
          X is COMPLEX
[in]Y
          Y is COMPLEX
          The complex scalars X and Y.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

Definition at line 63 of file cladiv.f.

64*
65* -- LAPACK auxiliary routine --
66* -- LAPACK is a software package provided by Univ. of Tennessee, --
67* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
68*
69* .. Scalar Arguments ..
70 COMPLEX X, Y
71* ..
72*
73* =====================================================================
74*
75* .. Local Scalars ..
76 REAL ZI, ZR
77* ..
78* .. External Subroutines ..
79 EXTERNAL sladiv
80* ..
81* .. Intrinsic Functions ..
82 INTRINSIC aimag, cmplx, real
83* ..
84* .. Executable Statements ..
85*
86 CALL sladiv( real( x ), aimag( x ), real( y ), aimag( y ), zr,
87 $ zi )
88 cladiv = cmplx( zr, zi )
89*
90 RETURN
91*
92* End of CLADIV
93*
complex function cladiv(X, Y)
CLADIV performs complex division in real arithmetic, avoiding unnecessary overflow.
Definition: cladiv.f:64
subroutine sladiv(A, B, C, D, P, Q)
SLADIV performs complex division in real arithmetic, avoiding unnecessary overflow.
Definition: sladiv.f:91
Here is the call graph for this function:
Here is the caller graph for this function: