LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ 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: