Merge pull request #214 from victorkemp/remove_f04

victorkemp · web-flow · commit d020e660f3c3 · 2026-04-20T09:52:38.000+12:00
Removed SUBR_BEGEND_LEVELS from BLAS files
diff --git a/BLAS/DGEMM.f b/BLAS/DGEMM.f
@@ -7,7 +7,6 @@ SUBROUTINE DGEMM ( TRANSA, TRANSB, M, N, K, ALPHA, A, LDA, B, LDB,
       USE SCONTR, ONLY                  :  BLNK_SUB_NAM, FATAL_ERR
       USE TIMDAT, ONLY                  :  HOUR, MINUTE, SEC,
      &                                     SFRAC, TSEC
-      USE SUBR_BEGEND_LEVELS, ONLY      :  LAPACK_BEGEND
 
       USE OUTA_HERE_Interface
 
diff --git a/BLAS/DGEMV.f b/BLAS/DGEMV.f
@@ -8,7 +8,6 @@ SUBROUTINE DGEMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX,
       USE SCONTR, ONLY                  :  BLNK_SUB_NAM, FATAL_ERR
       USE TIMDAT, ONLY                  :  HOUR, MINUTE, SEC,
      &                                     SFRAC, TSEC
-      USE SUBR_BEGEND_LEVELS, ONLY      :  LAPACK_BEGEND
 
       USE OUTA_HERE_Interface
 
diff --git a/BLAS/DLAMCH.f b/BLAS/DLAMCH.f
@@ -7,7 +7,6 @@ DOUBLE PRECISION FUNCTION DLAMCH( CMACH )
       USE SCONTR, ONLY                  :  BLNK_SUB_NAM, FATAL_ERR
       USE TIMDAT, ONLY                  :  HOUR, MINUTE, SEC,
      &                                     SFRAC, TSEC
-      USE SUBR_BEGEND_LEVELS, ONLY      :  LAPACK_BEGEND
       USE LAPACK_BLAS_AUX
 
       USE OUTA_HERE_Interface
diff --git a/BLAS/DLANST.f b/BLAS/DLANST.f
@@ -7,7 +7,6 @@ DOUBLE PRECISION FUNCTION DLANST( NORM, N, D, E )
       USE SCONTR, ONLY                  :  BLNK_SUB_NAM, FATAL_ERR
       USE TIMDAT, ONLY                  :  HOUR, MINUTE, SEC,
      &                                     SFRAC, TSEC
-      USE SUBR_BEGEND_LEVELS, ONLY      :  LAPACK_BEGEND
       USE LAPACK_BLAS_AUX
 
       USE OUTA_HERE_Interface
diff --git a/BLAS/DSCAL.f b/BLAS/DSCAL.f
@@ -7,7 +7,6 @@ SUBROUTINE  DSCAL(N,DA,DX,INCX)
       USE SCONTR, ONLY                  :  BLNK_SUB_NAM, FATAL_ERR
       USE TIMDAT, ONLY                  :  HOUR, MINUTE, SEC,
      &                                     SFRAC, TSEC
-      USE SUBR_BEGEND_LEVELS, ONLY      :  LAPACK_BEGEND
 
       USE OUTA_HERE_Interface
 
diff --git a/BLAS/DSWAP.f b/BLAS/DSWAP.f
@@ -7,7 +7,6 @@ SUBROUTINE  DSWAP (N,DX,INCX,DY,INCY)
       USE SCONTR, ONLY                  :  BLNK_SUB_NAM, FATAL_ERR
       USE TIMDAT, ONLY                  :  HOUR, MINUTE, SEC,
      &                                     SFRAC, TSEC
-      USE SUBR_BEGEND_LEVELS, ONLY      :  LAPACK_BEGEND
 
       USE OUTA_HERE_Interface
 
diff --git a/BLAS/DTRSM.f b/BLAS/DTRSM.f
@@ -8,7 +8,6 @@ SUBROUTINE DTRSM ( SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, A, LDA,
       USE SCONTR, ONLY                  :  BLNK_SUB_NAM, FATAL_ERR
       USE TIMDAT, ONLY                  :  HOUR, MINUTE, SEC,
      &                                     SFRAC, TSEC
-      USE SUBR_BEGEND_LEVELS, ONLY      :  LAPACK_BEGEND
 
       USE OUTA_HERE_Interface
 
diff --git a/BLAS/DTRTRI.f b/BLAS/DTRTRI.f
@@ -6,13 +6,11 @@ SUBROUTINE DTRTRI( UPLO, DIAG, N, A, LDA, INFO )
       USE SCONTR, ONLY                   :  BLNK_SUB_NAM
       USE TIMDAT, ONLY                   :  HOUR, MINUTE, SEC,
      &                                      TSEC
-      USE SUBR_BEGEND_LEVELS, ONLY       :  LAPACK_BEGEND
       USE LAPACK_BLAS_AUX
       USE LAPACK_SYM_MAT_INV
 
       USE OURTIM_Interface
 
-      INTEGER(LONG), PARAMETER :: SUBR_BEGEND = LAPACK_BEGEND
 
 *
 *  -- LAPACK routine (version 3.0) --
diff --git a/BLAS/ILAENV.f b/BLAS/ILAENV.f
@@ -8,7 +8,6 @@ INTEGER          FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3,
       USE SCONTR, ONLY                  :  BLNK_SUB_NAM, FATAL_ERR
       USE TIMDAT, ONLY                  :  HOUR, MINUTE, SEC,
      &                                     SFRAC, TSEC
-      USE SUBR_BEGEND_LEVELS, ONLY      :  LAPACK_BEGEND
 
       USE OUTA_HERE_Interface
 
diff --git a/BLAS/XERBLA.f b/BLAS/XERBLA.f
@@ -7,7 +7,6 @@ SUBROUTINE XERBLA( SRNAME, arg_num )
       USE SCONTR, ONLY                  :  BLNK_SUB_NAM, FATAL_ERR
       USE TIMDAT, ONLY                  :  HOUR, MINUTE, SEC,
      &                                     SFRAC, TSEC
-      USE SUBR_BEGEND_LEVELS, ONLY      :  LAPACK_BEGEND
 
       USE OUTA_HERE_Interface
 
