added declaration of intrinsics REAL or DBLE in SRC/dchkqp3rk.f zchkqp3rk.f schkqp3rk.f

Author: scr2016

TESTING/LIN/dchkqp3rk.f

@@ -239,7 +239,7 @@ SUBROUTINE DCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
      $                   DORMQR, DSWAP, ICOPY, XLAENV
 *     ..
 *     .. Intrinsic Functions ..
-      INTRINSIC          ABS, MAX, MIN, MOD
+      INTRINSIC          ABS, DBLE, MAX, MIN, MOD
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK

TESTING/LIN/schkqp3rk.f

@@ -238,7 +238,7 @@ SUBROUTINE SCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
      $                   SORMQR, SSWAP, ICOPY, XLAENV
 *     ..
 *     .. Intrinsic Functions ..
-      INTRINSIC          ABS, MAX, MIN, MOD
+      INTRINSIC          ABS, MAX, MIN, MOD, REAL
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK
@@ -771,7 +771,7 @@ SUBROUTINE SCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
                    RESULT( 5 ) =
      $               ABS(
      $               SLANGE( 'One-norm', M, NRHS, B, LDA, RDUMMY ) /
-     $               ( DBLE( M )*SLAMCH( 'Epsilon' ) )
+     $               ( REAL( M )*SLAMCH( 'Epsilon' ) )
      $               )
 *
 *                    Print information about the tests that did not pass

TESTING/LIN/zchkqp3rk.f

@@ -242,7 +242,7 @@ SUBROUTINE ZCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
      $                   ZLATMS, ZUNMQR, ZSWAP
 *     ..
 *     .. Intrinsic Functions ..
-      INTRINSIC          ABS, MAX, MIN, MOD
+      INTRINSIC          ABS, DBLE, MAX, MIN, MOD
 *     ..
 *     .. Scalars in Common ..
       LOGICAL            LERR, OK