implicit none of skew-symmetric subroutines, keep consistency with pr…

… 1152
Reference-LAPACK · sh-zheng · Aug 20, 2024 · Aug 20, 2024 · Aug 21, 2024 · Aug 22, 2024
commit 98d9c6a7c1ce72bc19fe8c58fb6494c076c0abfc
diff --git a/BLAS/SRC/dkymm.f b/BLAS/SRC/dkymm.f
@@ -184,6 +184,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level3 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/dkymv.f b/BLAS/SRC/dkymv.f
@@ -147,6 +147,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level2 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/dkyr2.f b/BLAS/SRC/dkyr2.f
@@ -142,6 +142,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level2 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/dkyr2k.f b/BLAS/SRC/dkyr2k.f
@@ -186,6 +186,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level3 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/skymm.f b/BLAS/SRC/skymm.f
@@ -184,6 +184,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level3 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/skymv.f b/BLAS/SRC/skymv.f
@@ -147,6 +147,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level2 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/skyr2.f b/BLAS/SRC/skyr2.f
@@ -142,6 +142,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level2 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/skyr2k.f b/BLAS/SRC/skyr2k.f
@@ -186,6 +186,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level3 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkteqr.f b/SRC/dkteqr.f
@@ -141,6 +141,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKTEQR( COMPZ, N, E, Z, LDZ, WORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dktev.f b/SRC/dktev.f
@@ -129,6 +129,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKTEV( JOBZ, N, D, E, Z, LDZ, WORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK driver routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkyconv.f b/SRC/dkyconv.f
@@ -123,6 +123,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkyev.f b/SRC/dkyev.f
@@ -148,6 +148,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK driver routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkygs2.f b/SRC/dkygs2.f
@@ -136,6 +136,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkygst.f b/SRC/dkygst.f
@@ -136,6 +136,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkygv.f b/SRC/dkygv.f
@@ -190,6 +190,7 @@
 *  =====================================================================
       SUBROUTINE DKYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W,
      $                  WORK, LWORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK driver routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkysv.f b/SRC/dkysv.f
@@ -194,6 +194,7 @@
 *  =====================================================================
       SUBROUTINE DKYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
      $                  LWORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK driver routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkyswapr.f b/SRC/dkyswapr.f
@@ -109,6 +109,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYSWAPR( UPLO, N, A, LDA, I1, I2)
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkytd2.f b/SRC/dkytd2.f
@@ -172,6 +172,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYTD2( UPLO, N, A, LDA, E, TAU, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkytf2.f b/SRC/dkytf2.f
@@ -192,6 +192,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYTF2( UPLO, N, A, LDA, IPIV, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkytrd.f b/SRC/dkytrd.f
@@ -190,6 +190,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYTRD( UPLO, N, A, LDA, E, TAU, WORK, LWORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkytrf.f b/SRC/dkytrf.f
@@ -202,6 +202,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkytri.f b/SRC/dkytri.f
@@ -123,6 +123,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkytri2.f b/SRC/dkytri2.f
@@ -136,6 +136,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkytri2x.f b/SRC/dkytri2x.f
@@ -129,6 +129,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkytrs.f b/SRC/dkytrs.f
@@ -129,6 +129,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DKYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dkytrs2.f b/SRC/dkytrs2.f
@@ -141,6 +141,7 @@
 *  =====================================================================
       SUBROUTINE DKYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
      $                    WORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dlakyf.f b/SRC/dlakyf.f
@@ -183,6 +183,7 @@
 *  =====================================================================
       SUBROUTINE DLAKYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW,
      $					 INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dlankt.f b/SRC/dlankt.f
@@ -89,6 +89,7 @@
 *
 *  =====================================================================
       DOUBLE PRECISION FUNCTION DLANKT( NORM, N, E )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dlanky.f b/SRC/dlanky.f
@@ -118,6 +118,7 @@
 *  =====================================================================
       DOUBLE PRECISION   FUNCTION DLANKY( NORM, UPLO, N, A, LDA,
      $									  WORK )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/dlatrdk.f b/SRC/dlatrdk.f
@@ -201,6 +201,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DLATRDK( UPLO, N, NB, A, LDA, E, TAU, W, LDW )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skteqr.f b/SRC/skteqr.f
@@ -141,6 +141,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKTEQR( COMPZ, N, E, Z, LDZ, WORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
@@ -172,8 +173,8 @@ SUBROUTINE SKTEQR( COMPZ, N, E, Z, LDZ, WORK, INFO )
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
-      REAL               SLAMCH, SLAPY2
-      EXTERNAL           LSAME, SLAMCH, SLAPY2
+      REAL               SLAMCH, SLAPY2, SLANKT
+      EXTERNAL           LSAME, SLAMCH, SLAPY2, SLANKT
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           SLAE2, SLAEV2, SLARTG, SLASCL, SLASET,

diff --git a/SRC/sktev.f b/SRC/sktev.f
@@ -129,6 +129,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKTEV( JOBZ, N, D, E, Z, LDZ, WORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK driver routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skyconv.f b/SRC/skyconv.f
@@ -123,6 +123,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skyev.f b/SRC/skyev.f
@@ -148,6 +148,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK driver routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skygs2.f b/SRC/skygs2.f
@@ -136,6 +136,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skygst.f b/SRC/skygst.f
@@ -136,6 +136,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skygv.f b/SRC/skygv.f
@@ -190,6 +190,7 @@
 *  =====================================================================
       SUBROUTINE SKYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W,
      $                  WORK, LWORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK driver routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skysv.f b/SRC/skysv.f
@@ -194,6 +194,7 @@
 *  =====================================================================
       SUBROUTINE SKYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
      $                  LWORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK driver routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skyswapr.f b/SRC/skyswapr.f
@@ -109,6 +109,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYSWAPR( UPLO, N, A, LDA, I1, I2)
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skytd2.f b/SRC/skytd2.f
@@ -172,6 +172,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYTD2( UPLO, N, A, LDA, E, TAU, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skytf2.f b/SRC/skytf2.f
@@ -192,6 +192,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYTF2( UPLO, N, A, LDA, IPIV, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skytrd.f b/SRC/skytrd.f
@@ -190,6 +190,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYTRD( UPLO, N, A, LDA, E, TAU, WORK, LWORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skytrf.f b/SRC/skytrf.f
@@ -202,6 +202,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skytri.f b/SRC/skytri.f
@@ -123,6 +123,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skytri2.f b/SRC/skytri2.f
@@ -136,6 +136,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skytri2x.f b/SRC/skytri2x.f
@@ -129,6 +129,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skytrs.f b/SRC/skytrs.f
@@ -129,6 +129,7 @@
 *>
 *  =====================================================================
       SUBROUTINE SKYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

diff --git a/SRC/skytrs2.f b/SRC/skytrs2.f
@@ -141,6 +141,7 @@
 *  =====================================================================
       SUBROUTINE SKYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB,
      $                    WORK, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --