LAPACK  3.8.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.
Date
December 2016

Definition at line 66 of file cladiv.f.

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