Skip to content

Commit 5d35af8

Browse files
langoulangou
committed
add Tennessee, Berkeley, Colorado and NAG
1 parent a383745 commit 5d35af8

File tree

8 files changed

+56
-10
lines changed

8 files changed

+56
-10
lines changed

‎SRC/cgedmd.f90

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -498,7 +498,13 @@ SUBROUTINE CGEDMD( JOBS, JOBZ, JOBR, JOBF, WHTSVD, &
498498
K, EIGS, Z, LDZ, RES, B, LDB, &
499499
W, LDW, S, LDS, ZWORK, LZWORK, &
500500
RWORK, LRWORK, IWORK, LIWORK, INFO )
501-
! March 2023
501+
!
502+
! -- LAPACK driver routine --
503+
!
504+
! -- LAPACK is a software package provided by University of --
505+
! -- Tennessee, University of California Berkeley, University of --
506+
! -- Colorado Denver and NAG Ltd.. --
507+
!
502508
!.....
503509
USE iso_fortran_env
504510
IMPLICIT NONE

‎SRC/cgedmdq.f90

Lines changed: 7 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,6 @@
1111
! Z, LDZ, RES, B, LDB, V, LDV, &
1212
! S, LDS, ZWORK, LZWORK, WORK, LWORK, &
1313
! IWORK, LIWORK, INFO )
14-
! March 2023
1514
!.....
1615
! USE iso_fortran_env
1716
! IMPLICIT NONE
@@ -556,7 +555,13 @@ SUBROUTINE CGEDMDQ( JOBS, JOBZ, JOBR, JOBQ, JOBT, JOBF, &
556555
Z, LDZ, RES, B, LDB, V, LDV, &
557556
S, LDS, ZWORK, LZWORK, WORK, LWORK, &
558557
IWORK, LIWORK, INFO )
559-
! March 2023
558+
!
559+
! -- LAPACK driver routine --
560+
!
561+
! -- LAPACK is a software package provided by University of --
562+
! -- Tennessee, University of California Berkeley, University of --
563+
! -- Colorado Denver and NAG Ltd.. --
564+
!
560565
!.....
561566
USE iso_fortran_env
562567
IMPLICIT NONE

‎SRC/dgedmd.f90

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -533,7 +533,13 @@ SUBROUTINE DGEDMD( JOBS, JOBZ, JOBR, JOBF, WHTSVD, &
533533
K, REIG, IMEIG, Z, LDZ, RES, &
534534
B, LDB, W, LDW, S, LDS, &
535535
WORK, LWORK, IWORK, LIWORK, INFO )
536-
! March 2023
536+
!
537+
! -- LAPACK driver routine --
538+
!
539+
! -- LAPACK is a software package provided by University of --
540+
! -- Tennessee, University of California Berkeley, University of --
541+
! -- Colorado Denver and NAG Ltd.. --
542+
!
537543
!.....
538544
USE iso_fortran_env
539545
IMPLICIT NONE

‎SRC/dgedmdq.f90

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -573,7 +573,13 @@ SUBROUTINE DGEDMDQ( JOBS, JOBZ, JOBR, JOBQ, JOBT, JOBF, &
573573
LDY, NRNK, TOL, K, REIG, IMEIG, &
574574
Z, LDZ, RES, B, LDB, V, LDV, &
575575
S, LDS, WORK, LWORK, IWORK, LIWORK, INFO )
576-
! March 2023
576+
!
577+
! -- LAPACK driver routine --
578+
!
579+
! -- LAPACK is a software package provided by University of --
580+
! -- Tennessee, University of California Berkeley, University of --
581+
! -- Colorado Denver and NAG Ltd.. --
582+
!
577583
!.....
578584
USE iso_fortran_env
579585
IMPLICIT NONE

‎SRC/sgedmd.f90

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -532,7 +532,13 @@ SUBROUTINE SGEDMD( JOBS, JOBZ, JOBR, JOBF, WHTSVD, &
532532
K, REIG, IMEIG, Z, LDZ, RES, &
533533
B, LDB, W, LDW, S, LDS, &
534534
WORK, LWORK, IWORK, LIWORK, INFO )
535-
! March 2023
535+
!
536+
! -- LAPACK driver routine --
537+
!
538+
! -- LAPACK is a software package provided by University of --
539+
! -- Tennessee, University of California Berkeley, University of --
540+
! -- Colorado Denver and NAG Ltd.. --
541+
!
536542
!.....
537543
USE iso_fortran_env
538544
IMPLICIT NONE

‎SRC/sgedmdq.f90

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -573,7 +573,13 @@ SUBROUTINE SGEDMDQ( JOBS, JOBZ, JOBR, JOBQ, JOBT, JOBF, &
573573
LDY, NRNK, TOL, K, REIG, IMEIG, &
574574
Z, LDZ, RES, B, LDB, V, LDV, &
575575
S, LDS, WORK, LWORK, IWORK, LIWORK, INFO )
576-
! March 2023
576+
!
577+
! -- LAPACK driver routine --
578+
!
579+
! -- LAPACK is a software package provided by University of --
580+
! -- Tennessee, University of California Berkeley, University of --
581+
! -- Colorado Denver and NAG Ltd.. --
582+
!
577583
!.....
578584
USE iso_fortran_env
579585
IMPLICIT NONE

‎SRC/zgedmd.f90

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -495,7 +495,13 @@ SUBROUTINE ZGEDMD( JOBS, JOBZ, JOBR, JOBF, WHTSVD, &
495495
K, EIGS, Z, LDZ, RES, B, LDB, &
496496
W, LDW, S, LDS, ZWORK, LZWORK, &
497497
RWORK, LRWORK, IWORK, LIWORK, INFO )
498-
! March 2023
498+
!
499+
! -- LAPACK driver routine --
500+
!
501+
! -- LAPACK is a software package provided by University of --
502+
! -- Tennessee, University of California Berkeley, University of --
503+
! -- Colorado Denver and NAG Ltd.. --
504+
!
499505
!.....
500506
USE iso_fortran_env
501507
IMPLICIT NONE

‎SRC/zgedmdq.f90

Lines changed: 7 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,6 @@
1111
! Z, LDZ, RES, B, LDB, V, LDV, &
1212
! S, LDS, ZWORK, LZWORK, WORK, LWORK, &
1313
! IWORK, LIWORK, INFO )
14-
! March 2023
1514
!.....
1615
! USE iso_fortran_env
1716
! IMPLICIT NONE
@@ -555,7 +554,13 @@ SUBROUTINE ZGEDMDQ( JOBS, JOBZ, JOBR, JOBQ, JOBT, JOBF, &
555554
Z, LDZ, RES, B, LDB, V, LDV, &
556555
S, LDS, ZWORK, LZWORK, WORK, LWORK, &
557556
IWORK, LIWORK, INFO )
558-
! March 2023
557+
!
558+
! -- LAPACK driver routine --
559+
!
560+
! -- LAPACK is a software package provided by University of --
561+
! -- Tennessee, University of California Berkeley, University of --
562+
! -- Colorado Denver and NAG Ltd.. --
563+
!
559564
!.....
560565
USE iso_fortran_env
561566
IMPLICIT NONE

0 commit comments

Comments
 (0)