Fix further implicit variables

Author: grisuthedragon

BLAS/TESTING/cblat3.f

@@ -3879,7 +3879,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
                            IF( NULL )THEN
                               ISAME( 12 ) = LCE( CS, CC, LCC )
                            ELSE
-                              ISAME( 12 ) = LCERES( 'GE', ' ', M, N, CS,
+                              ISAME( 12 ) = LCERES( 'GE', ' ', N, N, CS,
      $                                      CC, LDC )
                            END IF
                            ISAME( 13 ) = LDCS.EQ.LDC

BLAS/TESTING/dblat3.f

@@ -3145,7 +3145,7 @@ SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
                            IF( NULL )THEN
                               ISAME( 12 ) = LDE( CS, CC, LCC )
                            ELSE
-                              ISAME( 12 ) = LDERES( 'GE', ' ', M, N,
+                              ISAME( 12 ) = LDERES( 'GE', ' ', N, N,
      $                                          CS, CC, LDC )
                            END IF
                            ISAME( 13 ) = LDCS.EQ.LDC

BLAS/TESTING/zblat3.f

@@ -3893,7 +3893,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
                            IF( NULL )THEN
                               ISAME( 12 ) = LZE( CS, CC, LCC )
                            ELSE
-                              ISAME( 12 ) = LZERES( 'GE', ' ', M, N, CS,
+                              ISAME( 12 ) = LZERES( 'GE', ' ', N, N, CS,
      $                                      CC, LDC )
                            END IF
                            ISAME( 13 ) = LDCS.EQ.LDC