Remove useless variable

grisuthedragon · grisuthedragon · commit 6f66c83ae0c2 · 2024-06-24T14:04:02.000+02:00
diff --git a/BLAS/TESTING/cblat3.f b/BLAS/TESTING/cblat3.f
@@ -3708,7 +3708,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
       COMPLEX            ALPHA, ALS, BETA, BLS
       REAL               ERR, ERRMAX
       INTEGER            I, IA, IB, ICA, ICB, IK, IN, K, KS, LAA,
-     $                   LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,
+     $                   LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS,
      $                   MA, MB,  N, NA, NARGS, NB, NC, NS, IS
       LOGICAL            NULL, RESET, SAME, TRANA, TRANB
       CHARACTER*1        TRANAS, TRANBS, TRANSA, TRANSB, UPLO, UPLOS
@@ -3815,7 +3815,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
 *
 *                          Generate the matrix C.
 *
-                           CALL CMAKE( 'GE', UPLO, ' ', M, N, C, NMAX,
+                           CALL CMAKE( 'GE', UPLO, ' ', N, N, C, NMAX,
      $                                 CC, LDC, RESET, ZERO )
 *
                            NC = NC + 1
diff --git a/BLAS/TESTING/zblat3.f b/BLAS/TESTING/zblat3.f
@@ -3722,7 +3722,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
       COMPLEX*16            ALPHA, ALS, BETA, BLS
       DOUBLE PRECISION   ERR, ERRMAX
       INTEGER            I, IA, IB, ICA, ICB, IK, IN, K, KS, LAA,
-     $                   LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,
+     $                   LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS,
      $                   MA, MB,  N, NA, NARGS, NB, NC, NS, IS
       LOGICAL            NULL, RESET, SAME, TRANA, TRANB
       CHARACTER*1        TRANAS, TRANBS, TRANSA, TRANSB, UPLO, UPLOS
@@ -3829,7 +3829,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
 *
 *                          Generate the matrix C.
 *
-                           CALL ZMAKE( 'GE', UPLO, ' ', M, N, C, NMAX,
+                           CALL ZMAKE( 'GE', UPLO, ' ', N, N, C, NMAX,
      $                                 CC, LDC, RESET, ZERO )
 *
                            NC = NC + 1

Original file line number	Diff line number	Diff line change
`@@ -3708,7 +3708,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,`
`3708`	`3708`	`COMPLEX ALPHA, ALS, BETA, BLS`
`3709`	`3709`	`REAL ERR, ERRMAX`
`3710`	`3710`	`INTEGER I, IA, IB, ICA, ICB, IK, IN, K, KS, LAA,`
`3711`		`- $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,`
	`3711`	`+ $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS,`
`3712`	`3712`	`$ MA, MB, N, NA, NARGS, NB, NC, NS, IS`
`3713`	`3713`	`LOGICAL NULL, RESET, SAME, TRANA, TRANB`
`3714`	`3714`	`CHARACTER*1 TRANAS, TRANBS, TRANSA, TRANSB, UPLO, UPLOS`
`@@ -3815,7 +3815,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,`
`3815`	`3815`	`*`
`3816`	`3816`	`* Generate the matrix C.`
`3817`	`3817`	`*`
`3818`		`- CALL CMAKE( 'GE', UPLO, ' ', M, N, C, NMAX,`
	`3818`	`+ CALL CMAKE( 'GE', UPLO, ' ', N, N, C, NMAX,`
`3819`	`3819`	`$ CC, LDC, RESET, ZERO )`
`3820`	`3820`	`*`
`3821`	`3821`	`NC = NC + 1`
Original file line number	Diff line number	Diff line change
`@@ -3722,7 +3722,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,`
`3722`	`3722`	`COMPLEX*16 ALPHA, ALS, BETA, BLS`
`3723`	`3723`	`DOUBLE PRECISION ERR, ERRMAX`
`3724`	`3724`	`INTEGER I, IA, IB, ICA, ICB, IK, IN, K, KS, LAA,`
`3725`		`- $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,`
	`3725`	`+ $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS,`
`3726`	`3726`	`$ MA, MB, N, NA, NARGS, NB, NC, NS, IS`
`3727`	`3727`	`LOGICAL NULL, RESET, SAME, TRANA, TRANB`
`3728`	`3728`	`CHARACTER*1 TRANAS, TRANBS, TRANSA, TRANSB, UPLO, UPLOS`
`@@ -3829,7 +3829,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,`
`3829`	`3829`	`*`
`3830`	`3830`	`* Generate the matrix C.`
`3831`	`3831`	`*`
`3832`		`- CALL ZMAKE( 'GE', UPLO, ' ', M, N, C, NMAX,`
	`3832`	`+ CALL ZMAKE( 'GE', UPLO, ' ', N, N, C, NMAX,`
`3833`	`3833`	`$ CC, LDC, RESET, ZERO )`
`3834`	`3834`	`*`
`3835`	`3835`	`NC = NC + 1`