Routine: CCOMBAMAX1()  File: SRC\pcmax1.f

 
 
# lines: 45
  # code: 45
  # comment: 0
  # blank:0
# Variables:2
# Callers:0
# Callings:0
# Words:17
# Keywords:10
 

 

 
..
  Purpose
  =======
  CCOMBAMAX1 finds the element having maximum real part 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 ..
 
Display dynamic version Find AutoScroll Reload FontSize: - + Hide Comments Hide Blanks Frame FullScreen MailPrint

  
01        SUBROUTINE CCOMBAMAX1( V1 , V2 )
02  
03  *     -- ScaLAPACK auxiliary routine(version 1.7) --
04  *     University of Tennessee , Knoxville , Oak Ridge National Laboratory ,
05  *     and University of California , Berkeley.
06  *     May 1 , 1997
07  
08  *     .. Array Arguments ..
09        COMPLEX V1( 2 ) , V2( 2 )
10        INTRINSIC ABS , REAL
11  *     ..
12  *     .. Executable Statements ..
13  
14        IF( ABS( REAL( V1( 1 ) ) ).LT.ABS( REAL( V2( 1 ) ) ) ) THEN
15            V1( 1 ) = V2( 1 )
16            V1( 2 ) = V2( 2 )
17        END IF
18  
19        RETURN
20  
21  *     End of CCOMBAMAX1
22  
23        END