Go to the documentation of this file.00001 COMPLEX FUNCTION CLADIV( X, Y )
00002 *
00003 * -- LAPACK auxiliary routine (version 3.2) --
00004 * -- LAPACK is a software package provided by Univ. of Tennessee, --
00005 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
00006 * November 2006
00007 *
00008 * .. Scalar Arguments ..
00009 COMPLEX X, Y
00010 * ..
00011 *
00012 * Purpose
00013 * =======
00014 *
00015 * CLADIV := X / Y, where X and Y are complex. The computation of X / Y
00016 * will not overflow on an intermediary step unless the results
00017 * overflows.
00018 *
00019 * Arguments
00020 * =========
00021 *
00022 * X (input) COMPLEX
00023 * Y (input) COMPLEX
00024 * The complex scalars X and Y.
00025 *
00026 * =====================================================================
00027 *
00028 * .. Local Scalars ..
00029 REAL ZI, ZR
00030 * ..
00031 * .. External Subroutines ..
00032 EXTERNAL SLADIV
00033 * ..
00034 * .. Intrinsic Functions ..
00035 INTRINSIC AIMAG, CMPLX, REAL
00036 * ..
00037 * .. Executable Statements ..
00038 *
00039 CALL SLADIV( REAL( X ), AIMAG( X ), REAL( Y ), AIMAG( Y ), ZR,
00040 $ ZI )
00041 CLADIV = CMPLX( ZR, ZI )
00042 *
00043 RETURN
00044 *
00045 * End of CLADIV
00046 *
00047 END
