Merge pull request #1220 from nakatamaho/topic/xLARGV-fix-helper-naming

clargv,zlargv: rename local ABS1 helper to CABSMAX

Author: langou

SRC/clargv.f

@@ -155,7 +155,7 @@ SUBROUTINE CLARGV( N, X, INCX, Y, INCY, C, INCC )
      $                   SQRT
 *     ..
 *     .. Statement Functions ..
-      REAL               ABS1, ABSSQ
+      REAL               CABSMAX, ABSSQ
 *     ..
 *     .. Save statement ..
 *     SAVE               FIRST, SAFMX2, SAFMIN, SAFMN2
@@ -164,7 +164,7 @@ SUBROUTINE CLARGV( N, X, INCX, Y, INCY, C, INCC )
 *     DATA               FIRST / .TRUE. /
 *     ..
 *     .. Statement Function definitions ..
-      ABS1( FF ) = MAX( ABS( REAL( FF ) ), ABS( AIMAG( FF ) ) )
+      CABSMAX( FF ) = MAX( ABS( REAL( FF ) ), ABS( AIMAG( FF ) ) )
       ABSSQ( FF ) = REAL( FF )**2 + AIMAG( FF )**2
 *     ..
 *     .. Executable Statements ..
@@ -186,7 +186,7 @@ SUBROUTINE CLARGV( N, X, INCX, Y, INCY, C, INCC )
 *
 *        Use identical algorithm as in CLARTG
 *
-         SCALE = MAX( ABS1( F ), ABS1( G ) )
+         SCALE = MAX( CABSMAX( F ), CABSMAX( G ) )
          FS = F
          GS = G
          COUNT = 0
@@ -242,7 +242,7 @@ SUBROUTINE CLARGV( N, X, INCX, Y, INCY, C, INCC )
             CS = F2S / G2S
 *           Make sure abs(FF) = 1
 *           Do complex/real division explicitly with 2 real divisions
-            IF( ABS1( F ).GT.ONE ) THEN
+            IF( CABSMAX( F ).GT.ONE ) THEN
                D = SLAPY2( REAL( F ), AIMAG( F ) )
                FF = CMPLX( REAL( F ) / D, AIMAG( F ) / D )
             ELSE

SRC/zlargv.f

@@ -156,7 +156,7 @@ SUBROUTINE ZLARGV( N, X, INCX, Y, INCY, C, INCC )
      $                   MAX, SQRT
 *     ..
 *     .. Statement Functions ..
-      DOUBLE PRECISION   ABS1, ABSSQ
+      DOUBLE PRECISION   CABSMAX, ABSSQ
 *     ..
 *     .. Save statement ..
 *     SAVE               FIRST, SAFMX2, SAFMIN, SAFMN2
@@ -165,7 +165,7 @@ SUBROUTINE ZLARGV( N, X, INCX, Y, INCY, C, INCC )
 *     DATA               FIRST / .TRUE. /
 *     ..
 *     .. Statement Function definitions ..
-      ABS1( FF ) = MAX( ABS( DBLE( FF ) ), ABS( DIMAG( FF ) ) )
+      CABSMAX( FF ) = MAX( ABS( DBLE( FF ) ), ABS( DIMAG( FF ) ) )
       ABSSQ( FF ) = DBLE( FF )**2 + DIMAG( FF )**2
 *     ..
 *     .. Executable Statements ..
@@ -187,7 +187,7 @@ SUBROUTINE ZLARGV( N, X, INCX, Y, INCY, C, INCC )
 *
 *        Use identical algorithm as in ZLARTG
 *
-         SCALE = MAX( ABS1( F ), ABS1( G ) )
+         SCALE = MAX( CABSMAX( F ), CABSMAX( G ) )
          FS = F
          GS = G
          COUNT = 0
@@ -243,7 +243,7 @@ SUBROUTINE ZLARGV( N, X, INCX, Y, INCY, C, INCC )
             CS = F2S / G2S
 *           Make sure abs(FF) = 1
 *           Do complex/real division explicitly with 2 real divisions
-            IF( ABS1( F ).GT.ONE ) THEN
+            IF( CABSMAX( F ).GT.ONE ) THEN
                D = DLAPY2( DBLE( F ), DIMAG( F ) )
                FF = DCMPLX( DBLE( F ) / D, DIMAG( F ) / D )
             ELSE