changed LWORK_DORMQR into LWORK_MQR name in LIN/dchkqp3rk.f LIN/zchkqp3rk.f

Author: scr2016

TESTING/LIN/dchkqp3rk.f

@@ -208,7 +208,7 @@ SUBROUTINE DCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
       PARAMETER          ( NTESTS = 5 )
       DOUBLE PRECISION   ONE, ZERO, BIGNUM
       PARAMETER          ( ONE = 1.0D+0, ZERO = 0.0D+0,
-     $                     BIGNUM = 1.0D+100 )
+     $                     BIGNUM = 1.0D+38 )
 *     ..
 *     .. Local Scalars ..
       CHARACTER          DIST, TYPE
@@ -218,7 +218,7 @@ SUBROUTINE DCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
      $                   IND_IN, IND_OUT, INS, INFO,
      $                   ISTEP, J, J_INC, J_FIRST_NZ, JB_ZERO,
      $                   KFACT, KL, KMAX, KU, LDA, LW, LWORK,
-     $                   LWORK_DORMQR, M, MINMN, MINMNB_GEN, MODE, N,
+     $                   LWORK_MQR, M, MINMN, MINMNB_GEN, MODE, N,
      $                   NB, NB_ZERO, NERRS, NFAIL, NB_GEN, NRHS,
      $                   NRUN, NX, T
       DOUBLE PRECISION   ANORM, CNDNUM, EPS, ABSTOL, RELTOL,
@@ -756,10 +756,10 @@ SUBROUTINE DCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
 *
                   IF( MINMN.GT.0 ) THEN
 *
-                     LWORK_DORMQR = MAX(1, NRHS)
+                     LWORK_MQR = MAX(1, NRHS)
                      CALL DORMQR( 'Left', 'Transpose',
      $                         M, NRHS, KFACT, A, LDA, TAU, B, LDA,
-     $                         WORK, LWORK_DORMQR, INFO )
+     $                         WORK, LWORK_MQR, INFO )
 *
                      DO I = 1, NRHS
 *

TESTING/LIN/zchkqp3rk.f

@@ -212,7 +212,7 @@ SUBROUTINE ZCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
       PARAMETER          ( ONE = 1.0D+0, ZERO = 0.0D+0,
      $                   CZERO = ( 0.0D+0, 0.0D+0 ),
      $                   CONE = ( 1.0D+0, 0.0D+0 ),
-     $                   BIGNUM = 1.0D+100 )
+     $                   BIGNUM = 1.0D+38 )
 *     ..
 *     .. Local Scalars ..
       CHARACTER          DIST, TYPE
@@ -222,7 +222,7 @@ SUBROUTINE ZCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
      $                   IND_IN, IND_OUT, INS, INFO,
      $                   ISTEP, J, J_INC, J_FIRST_NZ, JB_ZERO,
      $                   KFACT, KL, KMAX, KU, LDA, LW, LWORK,
-     $                   LWORK_ZUNMQR, M, MINMN, MINMNB_GEN, MODE, N,
+     $                   LWORK_MQR, M, MINMN, MINMNB_GEN, MODE, N,
      $                   NB, NB_ZERO, NERRS, NFAIL, NB_GEN, NRHS,
      $                   NRUN, NX, T
       DOUBLE PRECISION   ANORM, CNDNUM, EPS, ABSTOL, RELTOL,
@@ -760,10 +760,10 @@ SUBROUTINE ZCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
 *
                   IF( MINMN.GT.0 ) THEN
 *
-                     LWORK_ZUNMQR = MAX(1, NRHS)
+                     LWORK_MQR = MAX(1, NRHS)
                      CALL ZUNMQR( 'Left', 'Conjugate transpose',
      $                         M, NRHS, KFACT, A, LDA, TAU, B, LDA,
-     $                         WORK, LWORK_ZUNMQR, INFO )
+     $                         WORK, LWORK_MQR, INFO )
 *
                      DO I = 1, NRHS
 *