Skip to content

Commit 5426147

Browse files
langoulangou
authored
Merge pull request #993 from christoph-conrads/xGEDMD-fix-iso-fortran-warnings-with-64bit-integers
xGEDMD(Q): silence warning with 64-bit integers
2 parents fe843f9 + e02fbda commit 5426147

File tree

8 files changed

+16
-17
lines changed

8 files changed

+16
-17
lines changed

‎SRC/cgedmd.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@
1111
! W, LDW, S, LDS, ZWORK, LZWORK, &
1212
! RWORK, LRWORK, IWORK, LIWORK, INFO )
1313
!.....
14-
! USE iso_fortran_env
14+
! USE, INTRINSIC :: iso_fortran_env, only: real32
1515
! IMPLICIT NONE
1616
! INTEGER, PARAMETER :: WP = real32
1717
!
@@ -506,7 +506,7 @@ SUBROUTINE CGEDMD( JOBS, JOBZ, JOBR, JOBF, WHTSVD, &
506506
! -- Colorado Denver and NAG Ltd.. --
507507
!
508508
!.....
509-
USE iso_fortran_env
509+
USE, INTRINSIC :: iso_fortran_env, only: real32
510510
IMPLICIT NONE
511511
INTEGER, PARAMETER :: WP = real32
512512
!

‎SRC/cgedmdq.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,7 @@
1212
! S, LDS, ZWORK, LZWORK, WORK, LWORK, &
1313
! IWORK, LIWORK, INFO )
1414
!.....
15-
! USE iso_fortran_env
15+
! USE, INTRINSIC :: iso_fortran_env, only: real32
1616
! IMPLICIT NONE
1717
! INTEGER, PARAMETER :: WP = real32
1818
!.....
@@ -563,7 +563,7 @@ SUBROUTINE CGEDMDQ( JOBS, JOBZ, JOBR, JOBQ, JOBT, JOBF, &
563563
! -- Colorado Denver and NAG Ltd.. --
564564
!
565565
!.....
566-
USE iso_fortran_env
566+
USE, INTRINSIC :: iso_fortran_env, only: real32
567567
IMPLICIT NONE
568568
INTEGER, PARAMETER :: WP = real32
569569
!

‎SRC/dgedmd.f90

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -10,9 +10,8 @@
1010
! K, REIG, IMEIG, Z, LDZ, RES, &
1111
! B, LDB, W, LDW, S, LDS, &
1212
! WORK, LWORK, IWORK, LIWORK, INFO )
13-
!
1413
!.....
15-
! USE iso_fortran_env
14+
! USE, INTRINSIC :: iso_fortran_env, only: real64
1615
! IMPLICIT NONE
1716
! INTEGER, PARAMETER :: WP = real64
1817
!.....
@@ -541,7 +540,7 @@ SUBROUTINE DGEDMD( JOBS, JOBZ, JOBR, JOBF, WHTSVD, &
541540
! -- Colorado Denver and NAG Ltd.. --
542541
!
543542
!.....
544-
USE iso_fortran_env
543+
USE, INTRINSIC :: iso_fortran_env, only: real64
545544
IMPLICIT NONE
546545
INTEGER, PARAMETER :: WP = real64
547546
!

‎SRC/dgedmdq.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@
1111
! Z, LDZ, RES, B, LDB, V, LDV, &
1212
! S, LDS, WORK, LWORK, IWORK, LIWORK, INFO )
1313
!.....
14-
! USE iso_fortran_env
14+
! USE, INTRINSIC :: iso_fortran_env, only: real64
1515
! IMPLICIT NONE
1616
! INTEGER, PARAMETER :: WP = real64
1717
!.....
@@ -581,7 +581,7 @@ SUBROUTINE DGEDMDQ( JOBS, JOBZ, JOBR, JOBQ, JOBT, JOBF, &
581581
! -- Colorado Denver and NAG Ltd.. --
582582
!
583583
!.....
584-
USE iso_fortran_env
584+
USE, INTRINSIC :: iso_fortran_env, only: real64
585585
IMPLICIT NONE
586586
INTEGER, PARAMETER :: WP = real64
587587
!

‎SRC/sgedmd.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@
1111
! B, LDB, W, LDW, S, LDS, &
1212
! WORK, LWORK, IWORK, LIWORK, INFO )
1313
!.....
14-
! USE iso_fortran_env
14+
! USE, INTRINSIC :: iso_fortran_env, only: real32
1515
! IMPLICIT NONE
1616
! INTEGER, PARAMETER :: WP = real32
1717
!.....
@@ -540,7 +540,7 @@ SUBROUTINE SGEDMD( JOBS, JOBZ, JOBR, JOBF, WHTSVD, &
540540
! -- Colorado Denver and NAG Ltd.. --
541541
!
542542
!.....
543-
USE iso_fortran_env
543+
USE, INTRINSIC :: iso_fortran_env, only: real32
544544
IMPLICIT NONE
545545
INTEGER, PARAMETER :: WP = real32
546546
!

‎SRC/sgedmdq.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@
1111
! Z, LDZ, RES, B, LDB, V, LDV, &
1212
! S, LDS, WORK, LWORK, IWORK, LIWORK, INFO )
1313
!.....
14-
! USE iso_fortran_env
14+
! USE, INTRINSIC :: iso_fortran_env, only: real32
1515
! IMPLICIT NONE
1616
! INTEGER, PARAMETER :: WP = real32
1717
!.....
@@ -581,7 +581,7 @@ SUBROUTINE SGEDMDQ( JOBS, JOBZ, JOBR, JOBQ, JOBT, JOBF, &
581581
! -- Colorado Denver and NAG Ltd.. --
582582
!
583583
!.....
584-
USE iso_fortran_env
584+
USE, INTRINSIC :: iso_fortran_env, only: real32
585585
IMPLICIT NONE
586586
INTEGER, PARAMETER :: WP = real32
587587
!

‎SRC/zgedmd.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,7 @@
1111
! W, LDW, S, LDS, ZWORK, LZWORK, &
1212
! RWORK, LRWORK, IWORK, LIWORK, INFO )
1313
!......
14-
! USE iso_fortran_env
14+
! USE, INTRINSIC :: iso_fortran_env, only: real64
1515
! IMPLICIT NONE
1616
! INTEGER, PARAMETER :: WP = real64
1717
!
@@ -506,7 +506,7 @@ SUBROUTINE ZGEDMD( JOBS, JOBZ, JOBR, JOBF, WHTSVD, &
506506
! -- Colorado Denver and NAG Ltd.. --
507507
!
508508
!.....
509-
USE iso_fortran_env
509+
USE, INTRINSIC :: iso_fortran_env, only: real64
510510
IMPLICIT NONE
511511
INTEGER, PARAMETER :: WP = real64
512512
!

‎SRC/zgedmdq.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,7 @@
1212
! S, LDS, ZWORK, LZWORK, WORK, LWORK, &
1313
! IWORK, LIWORK, INFO )
1414
!.....
15-
! USE iso_fortran_env
15+
! USE, INTRINSIC :: iso_fortran_env, only: real64
1616
! IMPLICIT NONE
1717
! INTEGER, PARAMETER :: WP = real64
1818
!.....
@@ -562,7 +562,7 @@ SUBROUTINE ZGEDMDQ( JOBS, JOBZ, JOBR, JOBQ, JOBT, JOBF, &
562562
! -- Colorado Denver and NAG Ltd.. --
563563
!
564564
!.....
565-
USE iso_fortran_env
565+
USE, INTRINSIC :: iso_fortran_env, only: real64
566566
IMPLICIT NONE
567567
INTEGER, PARAMETER :: WP = real64
568568
!

0 commit comments

Comments
 (0)