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

Author: sh-zheng

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,    --

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,    --

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,    --

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,    --

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,    --

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,    --

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,    --

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,    --

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,    --

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,    --