Skip to content

Commit 2ff93ce

Browse files
victorkempvictorkemp
authored
Merge pull request #213 from victorkemp/remove_f04
Remove f04
2 parents 19a9eb6 + 9623d36 commit 2ff93ce

1,223 files changed

Lines changed: 4246 additions & 14095 deletions

File tree

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

‎BLAS/DGEMM.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
SUBROUTINE DGEMM ( TRANSA, TRANSB, M, N, K, ALPHA, A, LDA, B, LDB,
44
$ BETA, C, LDC )
55
USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE
6-
USE IOUNT1, ONLY : ERR, F04, F06, SC1, WRT_LOG
6+
USE IOUNT1, ONLY : ERR, F06, SC1
77
USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR
88
USE TIMDAT, ONLY : HOUR, MINUTE, SEC,
99
& SFRAC, TSEC

‎BLAS/DGEMV.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@ SUBROUTINE DGEMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX,
44
$ BETA, Y, INCY )
55

66
USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE
7-
USE IOUNT1, ONLY : ERR, F04, F06, SC1, WRT_LOG
7+
USE IOUNT1, ONLY : ERR, F06, SC1
88
USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR
99
USE TIMDAT, ONLY : HOUR, MINUTE, SEC,
1010
& SFRAC, TSEC

‎BLAS/DLAMCH.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
DOUBLE PRECISION FUNCTION DLAMCH( CMACH )
44

55
USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE
6-
USE IOUNT1, ONLY : ERR, F04, F06, SC1, WRT_LOG
6+
USE IOUNT1, ONLY : ERR, F06, SC1
77
USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR
88
USE TIMDAT, ONLY : HOUR, MINUTE, SEC,
99
& SFRAC, TSEC

‎BLAS/DLANST.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
DOUBLE PRECISION FUNCTION DLANST( NORM, N, D, E )
44

55
USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE
6-
USE IOUNT1, ONLY : ERR, F04, F06, SC1, WRT_LOG
6+
USE IOUNT1, ONLY : ERR, F06, SC1
77
USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR
88
USE TIMDAT, ONLY : HOUR, MINUTE, SEC,
99
& SFRAC, TSEC

‎BLAS/DSCAL.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
SUBROUTINE DSCAL(N,DA,DX,INCX)
44

55
USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE
6-
USE IOUNT1, ONLY : ERR, F04, F06, SC1, WRT_LOG
6+
USE IOUNT1, ONLY : ERR, F06, SC1
77
USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR
88
USE TIMDAT, ONLY : HOUR, MINUTE, SEC,
99
& SFRAC, TSEC

‎BLAS/DSTEQR.f‎

Lines changed: 2 additions & 24 deletions
Original file line numberDiff line numberDiff line change
@@ -3,18 +3,12 @@
33
SUBROUTINE DSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO )
44

55
USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE
6-
USE IOUNT1, ONLY : ERR, F04, F06, SC1, WRT_LOG
7-
USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR
8-
USE TIMDAT, ONLY : HOUR, MINUTE, SEC,
9-
& SFRAC, TSEC
10-
USE SUBR_BEGEND_LEVELS, ONLY : LAPACK_BEGEND
6+
USE IOUNT1, ONLY : ERR, F06, SC1
7+
USE SCONTR, ONLY : FATAL_ERR
118
USE LAPACK_BLAS_AUX
129

1310
USE OUTA_HERE_Interface
1411

15-
INTEGER(LONG), PARAMETER :: SUBR_BEGEND = LAPACK_BEGEND
16-
17-
CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: subr_name = 'DSTEQR'
1812
*
1913
* -- LAPACK routine (version 2.0) --
2014
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -121,14 +115,6 @@ SUBROUTINE DSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO )
121115
* ..
122116
* .. Executable Statements ..
123117

124-
! **********************************************************************************************************************************
125-
IF (WRT_LOG >= SUBR_BEGEND+1) THEN
126-
CALL OURTIM
127-
WRITE(F04,9001) SUBR_NAME,TSEC
128-
9001 FORMAT(1X,A,' BEGN ',F10.3)
129-
ENDIF
130-
131-
! **********************************************************************************************************************************
132118
*
133119
* Test the input parameters.
134120
*
@@ -522,14 +508,6 @@ SUBROUTINE DSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO )
522508
*
523509
190 CONTINUE
524510

525-
! **********************************************************************************************************************************
526-
9000 IF (WRT_LOG >= SUBR_BEGEND+1) THEN
527-
CALL OURTIM
528-
WRITE(F04,9002) SUBR_NAME,TSEC
529-
9002 FORMAT(1X,A,' END ',F10.3)
530-
ENDIF
531-
532-
! **********************************************************************************************************************************
533511
RETURN
534512
*
535513
* End of DSTEQR

‎BLAS/DSTERF.f‎

Lines changed: 0 additions & 26 deletions
Original file line numberDiff line numberDiff line change
@@ -3,20 +3,10 @@
33
SUBROUTINE DSTERF( N, D, E, INFO )
44

55
USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE
6-
USE IOUNT1, ONLY : F04, WRT_LOG
7-
USE SCONTR, ONLY : BLNK_SUB_NAM
8-
USE TIMDAT, ONLY : HOUR, MINUTE, SEC,
9-
& TSEC
10-
USE SUBR_BEGEND_LEVELS, ONLY : LAPACK_BEGEND
116

127
USE LAPACK_BLAS_AUX
138
USE LAPACK_LIN_EQN_DPB
149

15-
USE OURTIM_Interface
16-
17-
INTEGER(LONG), PARAMETER :: SUBR_BEGEND = LAPACK_BEGEND
18-
19-
CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: subr_name = 'DSTERF'
2010
*
2111
* -- LAPACK routine (version 3.0) --
2212
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
@@ -86,14 +76,6 @@ SUBROUTINE DSTERF( N, D, E, INFO )
8676
* ..
8777
* .. Executable Statements ..
8878

89-
! **********************************************************************************************************************************
90-
IF (WRT_LOG >= SUBR_BEGEND) THEN
91-
CALL OURTIM
92-
WRITE(F04,9001) SUBR_NAME,TSEC
93-
9001 FORMAT(1X,A,' BEGN ',F10.3)
94-
ENDIF
95-
96-
! **********************************************************************************************************************************
9779
*
9880
* Test the input parameters.
9981
*
@@ -386,14 +368,6 @@ SUBROUTINE DSTERF( N, D, E, INFO )
386368
*
387369
180 CONTINUE
388370

389-
! **********************************************************************************************************************************
390-
IF (WRT_LOG >= SUBR_BEGEND) THEN
391-
CALL OURTIM
392-
WRITE(F04,9002) SUBR_NAME,TSEC
393-
9002 FORMAT(1X,A,' END ',F10.3)
394-
ENDIF
395-
396-
! **********************************************************************************************************************************
397371
RETURN
398372
*
399373
* End of DSTERF

‎BLAS/DSWAP.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
SUBROUTINE DSWAP (N,DX,INCX,DY,INCY)
44

55
USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE
6-
USE IOUNT1, ONLY : ERR, F04, F06, SC1, WRT_LOG
6+
USE IOUNT1, ONLY : ERR, F06, SC1
77
USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR
88
USE TIMDAT, ONLY : HOUR, MINUTE, SEC,
99
& SFRAC, TSEC

‎BLAS/DTRSM.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@ SUBROUTINE DTRSM ( SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, A, LDA,
44
$ B, LDB )
55

66
USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE
7-
USE IOUNT1, ONLY : ERR, F04, F06, SC1, WRT_LOG
7+
USE IOUNT1, ONLY : ERR, F06, SC1
88
USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR
99
USE TIMDAT, ONLY : HOUR, MINUTE, SEC,
1010
& SFRAC, TSEC

‎BLAS/DTRTRI.f‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,6 @@
33
SUBROUTINE DTRTRI( UPLO, DIAG, N, A, LDA, INFO )
44

55
USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE
6-
USE IOUNT1, ONLY : F04, WRT_LOG
76
USE SCONTR, ONLY : BLNK_SUB_NAM
87
USE TIMDAT, ONLY : HOUR, MINUTE, SEC,
98
& TSEC

0 commit comments

Comments
 (0)