ccombamax()

subroutine ccombamax	(	complex, dimension( 2 )	v1,
		complex, dimension( 2 )	v2
	)

Definition at line 212 of file pctreecomb.f.

*
*  -- ScaLAPACK tools routine (version 1.7) --
*     University of Tennessee, Knoxville, Oak Ridge National Laboratory,
*     and University of California, Berkeley.
*     May 1, 1997
*
*     .. Array Arguments ..
      COMPLEX            V1( 2 ), V2( 2 )
*     ..
*
*  Purpose
*  =======
*
*  CCOMBAMAX finds the element having max. absolute value as well
*  as its corresponding globl index.
*
*  Arguments
*  =========
*
*  V1        (local input/local output) COMPLEX array of
*            dimension 2.  The first maximum absolute value element and
*            its global index. V1(1) = AMAX, V1(2) = INDX.
*
*  V2        (local input) COMPLEX array of dimension 2.
*            The second maximum absolute value element and its global
*            index. V2(1) = AMAX, V2(2) = INDX.
*
*  =====================================================================
*
*     .. Intrinsic Functions ..
      INTRINSIC          abs, real, aimag
*     ..
*     .. Statement Functions ..
      COMPLEX            ZDUM
      REAL               CABS1
      cabs1(zdum) = abs(real(zdum)) + abs(aimag(zdum))
*     ..
*     .. Executable Statements ..
*
      IF( cabs1( v1( 1 ) ).LT.cabs1( v2( 1 ) ) ) THEN
         v1( 1 ) = v2( 1 )
         v1( 2 ) = v2( 2 )
      END IF
*
      RETURN
*
*     End of CCOMBAMAX
*