comments unified: remove spaces around expr in norm( expr )

Author: jip

TESTING/EIG/cbdt01.f

@@ -33,7 +33,7 @@
 *> matrices and B is bidiagonal.
 *>
 *> The test ratio to test the reduction is
-*>    RESID = norm( A - Q * B * P**H ) / ( n * norm(A) * EPS )
+*>    RESID = norm(A - Q * B * P**H) / ( n * norm(A) * EPS )
 *> where EPS is the machine precision.
 *> \endverbatim
 *

TESTING/EIG/cbdt02.f

@@ -30,7 +30,7 @@
 *> CBDT02 tests the change of basis C = U**H * B by computing the
 *> residual
 *>
-*>    RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ),
+*>    RESID = norm(B - U * C) / ( max(m,n) * norm(B) * EPS ),
 *>
 *> where B and C are M by N matrices, U is an M by M orthogonal matrix,
 *> and EPS is the machine precision.
@@ -101,7 +101,7 @@
 *> \param[out] RESID
 *> \verbatim
 *>          RESID is REAL
-*>          RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ),
+*>          RESID = norm(B - U * C) / ( max(m,n) * norm(B) * EPS ),
 *> \endverbatim
 *
 *  Authors:
@@ -162,7 +162,7 @@ SUBROUTINE CBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK,
       REALMN = REAL( MAX( M, N ) )
       EPS = SLAMCH( 'Precision' )
 *
-*     Compute norm( B - U * C )
+*     Compute norm(B - U * C)
 *
       DO 10 J = 1, N
          CALL CCOPY( M, B( 1, J ), 1, WORK, 1 )

TESTING/EIG/dbdt01.f

@@ -32,7 +32,7 @@
 *> matrices and B is bidiagonal.
 *>
 *> The test ratio to test the reduction is
-*>    RESID = norm( A - Q * B * P**T ) / ( n * norm(A) * EPS )
+*>    RESID = norm(A - Q * B * P**T) / ( n * norm(A) * EPS )
 *> where EPS is the machine precision.
 *> \endverbatim
 *

TESTING/EIG/dbdt02.f

@@ -28,7 +28,7 @@
 *> DBDT02 tests the change of basis C = U**H * B by computing the
 *> residual
 *>
-*>    RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ),
+*>    RESID = norm(B - U * C) / ( max(m,n) * norm(B) * EPS ),
 *>
 *> where B and C are M by N matrices, U is an M by M orthogonal matrix,
 *> and EPS is the machine precision.
@@ -94,7 +94,7 @@
 *> \param[out] RESID
 *> \verbatim
 *>          RESID is DOUBLE PRECISION
-*>          RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ),
+*>          RESID = norm(B - U * C) / ( max(m,n) * norm(B) * EPS ),
 *> \endverbatim
 *
 *  Authors:
@@ -153,7 +153,7 @@ SUBROUTINE DBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID )
       REALMN = DBLE( MAX( M, N ) )
       EPS = DLAMCH( 'Precision' )
 *
-*     Compute norm( B - U * C )
+*     Compute norm(B - U * C)
 *
       DO 10 J = 1, N
          CALL DCOPY( M, B( 1, J ), 1, WORK, 1 )

TESTING/EIG/sbdt01.f

@@ -32,7 +32,7 @@
 *> matrices and B is bidiagonal.
 *>
 *> The test ratio to test the reduction is
-*>    RESID = norm( A - Q * B * P**T ) / ( n * norm(A) * EPS )
+*>    RESID = norm(A - Q * B * P**T) / ( n * norm(A) * EPS )
 *> where EPS is the machine precision.
 *> \endverbatim
 *

TESTING/EIG/sbdt02.f

@@ -28,7 +28,7 @@
 *> SBDT02 tests the change of basis C = U**H * B by computing the
 *> residual
 *>
-*>    RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ),
+*>    RESID = norm(B - U * C) / ( max(m,n) * norm(B) * EPS ),
 *>
 *> where B and C are M by N matrices, U is an M by M orthogonal matrix,
 *> and EPS is the machine precision.
@@ -94,7 +94,7 @@
 *> \param[out] RESID
 *> \verbatim
 *>          RESID is REAL
-*>          RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ),
+*>          RESID = norm(B - U * C) / ( max(m,n) * norm(B) * EPS ),
 *> \endverbatim
 *
 *  Authors:
@@ -153,7 +153,7 @@ SUBROUTINE SBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID )
       REALMN = REAL( MAX( M, N ) )
       EPS = SLAMCH( 'Precision' )
 *
-*     Compute norm( B - U * C )
+*     Compute norm(B - U * C)
 *
       DO 10 J = 1, N
          CALL SCOPY( M, B( 1, J ), 1, WORK, 1 )

TESTING/EIG/zbdt01.f

@@ -33,7 +33,7 @@
 *> matrices and B is bidiagonal.
 *>
 *> The test ratio to test the reduction is
-*>    RESID = norm( A - Q * B * P**H ) / ( n * norm(A) * EPS )
+*>    RESID = norm(A - Q * B * P**H) / ( n * norm(A) * EPS )
 *> where EPS is the machine precision.
 *> \endverbatim
 *

TESTING/EIG/zbdt02.f

@@ -30,7 +30,7 @@
 *> ZBDT02 tests the change of basis C = U**H * B by computing the
 *> residual
 *>
-*>    RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ),
+*>    RESID = norm(B - U * C) / ( max(m,n) * norm(B) * EPS ),
 *>
 *> where B and C are M by N matrices, U is an M by M orthogonal matrix,
 *> and EPS is the machine precision.
@@ -101,7 +101,7 @@
 *> \param[out] RESID
 *> \verbatim
 *>          RESID is DOUBLE PRECISION
-*>          RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ),
+*>          RESID = norm(B - U * C) / ( max(m,n) * norm(B) * EPS ),
 *> \endverbatim
 *
 *  Authors:
@@ -162,7 +162,7 @@ SUBROUTINE ZBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK,
       REALMN = DBLE( MAX( M, N ) )
       EPS = DLAMCH( 'Precision' )
 *
-*     Compute norm( B - U * C )
+*     Compute norm(B - U * C)
 *
       DO 10 J = 1, N
          CALL ZCOPY( M, B( 1, J ), 1, WORK, 1 )

TESTING/LIN/cgbt01.f

@@ -226,7 +226,7 @@ SUBROUTINE CGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK,
          END IF
    40 CONTINUE
 *
-*     Compute norm( L*U - A ) / ( N * norm(A) * EPS )
+*     Compute norm(L*U - A) / ( N * norm(A) * EPS )
 *
       IF( ANORM.LE.ZERO ) THEN
          IF( RESID.NE.ZERO )

TESTING/LIN/cpot01.f

@@ -224,7 +224,7 @@ SUBROUTINE CPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID )
    70    CONTINUE
       END IF
 *
-*     Compute norm( L*U - A ) / ( N * norm(A) * EPS )
+*     Compute norm(L*U - A) / ( N * norm(A) * EPS )
 *
       RESID = CLANHE( '1', UPLO, N, AFAC, LDAFAC, RWORK )
 *