Fix another variable

grisuthedragon · grisuthedragon · commit 6173b6e47447 · 2024-06-24T14:04:02.000+02:00
diff --git a/BLAS/TESTING/zblat3.f b/BLAS/TESTING/zblat3.f
@@ -3952,7 +3952,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
 *
   120 CONTINUE
       WRITE( NOUT, FMT = 9996 )SNAME
-      WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, M, N, K,
+      WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, N, K,
      $   ALPHA, LDA, LDB, BETA, LDC
 *
   130 CONTINUE

Original file line number	Diff line number	Diff line change
`@@ -3952,7 +3952,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,`
`3952`	`3952`	`*`
`3953`	`3953`	`120 CONTINUE`
`3954`	`3954`	`WRITE( NOUT, FMT = 9996 )SNAME`
`3955`		`- WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, M, N, K,`
	`3955`	`+ WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, N, K,`
`3956`	`3956`	`$ ALPHA, LDA, LDB, BETA, LDC`
`3957`	`3957`	`*`
`3958`	`3958`	`130 CONTINUE`