fixes to implicit declarations

Author: scr2016

SRC/dgeqp3rk.f

@@ -539,9 +539,9 @@ SUBROUTINE DGEQP3RK( M, N, NRHS, KMAX, ABSTOL, RELTOL,
 *     ..
 *     .. External Functions ..
       LOGICAL            DISNAN
-      INTEGER            ILAENV
+      INTEGER            IDAMAX, ILAENV
       DOUBLE PRECISION   DLAMCH, DNRM2
-      EXTERNAL           DISNAN, DLAMCH, DNRM2, ILAENV
+      EXTERNAL           DISNAN, DLAMCH, DNRM2, IDAMAX, ILAENV
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          DBLE, MAX, MIN

SRC/dlaqp2rk.f

@@ -293,7 +293,8 @@ SUBROUTINE DLAQP2RK( M, N, NRHS, IOFFSET, KMAX, ABSTOL, RELTOL,
       PARAMETER          ( ZERO = 0.0D+0, ONE = 1.0D+0 )
 *     ..
 *     .. Local Scalars ..
-      INTEGER            ITEMP, J, MINMNFACT, MINMNUPDT, I, K, KP
+      INTEGER            I, ITEMP, J, JMAXC2NRM, K, KP, MINMNFACT,
+     $                   MINMNUPDT
       DOUBLE PRECISION   AIK, TEMP, TEMP2, TOL3Z
 *     ..
 *     .. External Subroutines ..

SRC/dlaqp3rk.f

@@ -19,9 +19,11 @@
 *  ===========
 *
 *      SUBROUTINE DLAQP3RK( M, N, NRHS, IOFFSET, NB, ABSTOL, RELTOL,
-*     $                     KP0, MAXC2NRM, A, LDA, KB, DONE,
-*     $                     KF, MAXC2NRMK, RELMAXC2NRMK,
-*     $                     JPIV, TAU, VN1, VN2, AUXV, F, LDF, IWORK )
+*      LOGICAL            DONE
+*      INTEGER            IOFFSET, KB, KF, KP1, LDA, LDF, M, MAXK, N,
+*     $                   NB, NRHS
+*      DOUBLE PRECISION   ABSTOL, MAXC2NRM, MAXC2NRMK, RELMAXC2NRMK,
+*     $                   RELTOL
 *
 *     .. Scalar Arguments ..
 *      LOGICAL            DONE
@@ -313,7 +315,8 @@ SUBROUTINE DLAQP3RK( M, N, NRHS, IOFFSET, NB, MAXK, ABSTOL,
 *
 *     .. Scalar Arguments ..
       LOGICAL            DONE
-      INTEGER            IOFFSET, KB, KF, KP1, LDA, LDF, M, N, NB, NRHS
+      INTEGER            IOFFSET, KB, KF, KP1, LDA, LDF, M, MAXK, N,
+     $                   NB, NRHS
       DOUBLE PRECISION   ABSTOL, MAXC2NRM, MAXC2NRMK, RELMAXC2NRMK,
      $                   RELTOL
 *     ..
@@ -330,7 +333,7 @@ SUBROUTINE DLAQP3RK( M, N, NRHS, IOFFSET, NB, MAXK, ABSTOL,
       PARAMETER          ( ZERO = 0.0D+0, ONE = 1.0D+0 )
 *     ..
 *     .. Local Scalars ..
-      INTEGER            ITEMP, J, K, MINMNFACT, MINMNNRHSFACT,
+      INTEGER            ITEMP, J, K, MINMNFACT, MINMNUPDT,
      $                   LSTICC, KP, I
       DOUBLE PRECISION   AIK, TEMP, TEMP2, TOL3Z
 *     ..