Reference-LAPACK · langou · Aug 27, 2025 · Aug 22, 2025 · Aug 27, 2025 · Aug 27, 2025
diff --git a/BLAS/SRC/caxpy.f b/BLAS/SRC/caxpy.f
@@ -85,6 +85,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/ccopy.f b/BLAS/SRC/ccopy.f
@@ -78,6 +78,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CCOPY(N,CX,INCX,CY,INCY)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/cdotc.f b/BLAS/SRC/cdotc.f
@@ -80,6 +80,7 @@
 *>
 *  =====================================================================
       COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/cdotu.f b/BLAS/SRC/cdotu.f
@@ -80,6 +80,7 @@
 *>
 *  =====================================================================
       COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/cgbmv.f b/BLAS/SRC/cgbmv.f
@@ -187,6 +187,7 @@
 *  =====================================================================
       SUBROUTINE CGBMV(TRANS,M,N,KL,KU,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/cgemm.f b/BLAS/SRC/cgemm.f
@@ -206,6 +206,7 @@
 *  =====================================================================
       SUBROUTINE CGEMM(TRANSA,TRANSB,M,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/cgemv.f b/BLAS/SRC/cgemv.f
@@ -157,6 +157,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CGEMV(TRANS,M,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/cgerc.f b/BLAS/SRC/cgerc.f
@@ -127,6 +127,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CGERC(M,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/cgeru.f b/BLAS/SRC/cgeru.f
@@ -127,6 +127,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CGERU(M,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/chbmv.f b/BLAS/SRC/chbmv.f
@@ -184,6 +184,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CHBMV(UPLO,N,K,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/chemm.f b/BLAS/SRC/chemm.f
@@ -188,6 +188,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CHEMM(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/chemv.f b/BLAS/SRC/chemv.f
@@ -151,6 +151,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CHEMV(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/cher.f b/BLAS/SRC/cher.f
@@ -132,6 +132,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CHER(UPLO,N,ALPHA,X,INCX,A,LDA)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level2 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/cher2.f b/BLAS/SRC/cher2.f
@@ -147,6 +147,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CHER2(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/cher2k.f b/BLAS/SRC/cher2k.f
@@ -194,6 +194,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CHER2K(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/cherk.f b/BLAS/SRC/cherk.f
@@ -170,6 +170,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,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/chpmv.f b/BLAS/SRC/chpmv.f
@@ -146,6 +146,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,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/chpr.f b/BLAS/SRC/chpr.f
@@ -127,6 +127,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level2 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

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

diff --git a/BLAS/SRC/crotg.f90 b/BLAS/SRC/crotg.f90
@@ -86,6 +86,7 @@
 !
 !  =====================================================================
 subroutine CROTG( a, b, c, s )
+   implicit none
    integer, parameter :: wp = kind(1.e0)
 !
 !  -- Reference BLAS level1 routine --

diff --git a/BLAS/SRC/cscal.f b/BLAS/SRC/cscal.f
@@ -75,6 +75,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CSCAL(N,CA,CX,INCX)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/csrot.f b/BLAS/SRC/csrot.f
@@ -95,6 +95,7 @@
 *
 *  =====================================================================
       SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S )
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/csscal.f b/BLAS/SRC/csscal.f
@@ -75,6 +75,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CSSCAL(N,SA,CX,INCX)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/cswap.f b/BLAS/SRC/cswap.f
@@ -78,6 +78,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CSWAP(N,CX,INCX,CY,INCY)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/csymm.f b/BLAS/SRC/csymm.f
@@ -186,6 +186,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CSYMM(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/csyr2k.f b/BLAS/SRC/csyr2k.f
@@ -185,6 +185,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CSYR2K(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/csyrk.f b/BLAS/SRC/csyrk.f
@@ -164,6 +164,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,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/ctbmv.f b/BLAS/SRC/ctbmv.f
@@ -183,6 +183,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level2 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/ctbsv.f b/BLAS/SRC/ctbsv.f
@@ -186,6 +186,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level2 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/ctpmv.f b/BLAS/SRC/ctpmv.f
@@ -139,6 +139,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level2 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/ctpsv.f b/BLAS/SRC/ctpsv.f
@@ -141,6 +141,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level2 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/ctrmm.f b/BLAS/SRC/ctrmm.f
@@ -174,6 +174,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level3 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/ctrmv.f b/BLAS/SRC/ctrmv.f
@@ -144,6 +144,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level2 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/ctrsm.f b/BLAS/SRC/ctrsm.f
@@ -177,6 +177,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level3 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/ctrsv.f b/BLAS/SRC/ctrsv.f
@@ -146,6 +146,7 @@
 *>
 *  =====================================================================
       SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level2 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/dasum.f b/BLAS/SRC/dasum.f
@@ -68,6 +68,7 @@
 *>
 *  =====================================================================
       DOUBLE PRECISION FUNCTION DASUM(N,DX,INCX)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/daxpy.f b/BLAS/SRC/daxpy.f
@@ -86,6 +86,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/dcabs1.f b/BLAS/SRC/dcabs1.f
@@ -44,6 +44,7 @@
 *
 *  =====================================================================
       DOUBLE PRECISION FUNCTION DCABS1(Z)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/dcopy.f b/BLAS/SRC/dcopy.f
@@ -79,6 +79,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DCOPY(N,DX,INCX,DY,INCY)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/ddot.f b/BLAS/SRC/ddot.f
@@ -79,6 +79,7 @@
 *>
 *  =====================================================================
       DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/dgbmv.f b/BLAS/SRC/dgbmv.f
@@ -185,6 +185,7 @@
 *  =====================================================================
       SUBROUTINE DGBMV(TRANS,M,N,KL,KU,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/dgemm.f b/BLAS/SRC/dgemm.f
@@ -212,6 +212,7 @@
 *  =====================================================================
       SUBROUTINE DGEMM(TRANSA,TRANSB,M,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/dgemv.f b/BLAS/SRC/dgemv.f
@@ -155,6 +155,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DGEMV(TRANS,M,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/dger.f b/BLAS/SRC/dger.f
@@ -127,6 +127,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DGER(M,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/dnrm2.f90 b/BLAS/SRC/dnrm2.f90
@@ -85,7 +85,8 @@
 !> \endverbatim
 !>
 !  =====================================================================
-function DNRM2( n, x, incx ) 
+function DNRM2( n, x, incx )
+   implicit none
    integer, parameter :: wp = kind(1.d0)
    real(wp) :: DNRM2
 !

diff --git a/BLAS/SRC/drot.f b/BLAS/SRC/drot.f
@@ -89,6 +89,7 @@
 *>
 *  =====================================================================
       SUBROUTINE DROT(N,DX,INCX,DY,INCY,C,S)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/drotg.f90 b/BLAS/SRC/drotg.f90
@@ -89,6 +89,7 @@
 !
 !  =====================================================================
 subroutine DROTG( a, b, c, s )
+   implicit none
    integer, parameter :: wp = kind(1.d0)
 !
 !  -- Reference BLAS level1 routine --

diff --git a/BLAS/SRC/drotm.f b/BLAS/SRC/drotm.f
@@ -97,6 +97,7 @@
 *
 *  =====================================================================
       SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --

diff --git a/BLAS/SRC/drotmg.f b/BLAS/SRC/drotmg.f
@@ -87,6 +87,7 @@
 *
 *  =====================================================================
       SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM)
+      IMPLICIT NONE
 *
 *  -- Reference BLAS level1 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --