Merge pull request Reference-LAPACK#993 from christoph-conrads/xGEDMD…

…-fix-iso-fortran-warnings-with-64bit-integers xGEDMD(Q): silence warning with 64-bit integers
christoph-conrads · Mar 1, 2024 · 5426147 · 5426147
2 parents fe843f9 + e02fbda
commit 5426147
Show file tree

Hide file tree

Showing 8 changed files with 16 additions and 17 deletions.
diff --git a/SRC/cgedmd.f90 b/SRC/cgedmd.f90
@@ -11,7 +11,7 @@
 !                        W, LDW,  S, LDS, ZWORK,  LZWORK,   &
 !                        RWORK, LRWORK, IWORK, LIWORK, INFO )
 !.....
-!     USE                   iso_fortran_env
+!     USE, INTRINSIC :: iso_fortran_env, only: real32
 !     IMPLICIT NONE
 !     INTEGER, PARAMETER :: WP = real32
 !
@@ -506,7 +506,7 @@ SUBROUTINE CGEDMD( JOBS, JOBZ, JOBR, JOBF,  WHTSVD,   &
 !  -- Colorado Denver and NAG Ltd..                                   --
 !
 !.....
-      USE                   iso_fortran_env
+      USE, INTRINSIC :: iso_fortran_env, only: real32
       IMPLICIT NONE
       INTEGER, PARAMETER :: WP = real32
 !

diff --git a/SRC/cgedmdq.f90 b/SRC/cgedmdq.f90
@@ -12,7 +12,7 @@
 !                   S, LDS, ZWORK, LZWORK, WORK,  LWORK,   &
 !                   IWORK, LIWORK, INFO )
 !.....
-!     USE                   iso_fortran_env
+!     USE, INTRINSIC :: iso_fortran_env, only: real32
 !     IMPLICIT NONE
 !     INTEGER, PARAMETER :: WP = real32
 !.....
@@ -563,7 +563,7 @@ SUBROUTINE CGEDMDQ( JOBS,  JOBZ, JOBR, JOBQ, JOBT, JOBF,   &
 !  -- Colorado Denver and NAG Ltd..                                   --
 !
 !.....
-      USE                   iso_fortran_env
+      USE, INTRINSIC :: iso_fortran_env, only: real32
       IMPLICIT NONE
       INTEGER, PARAMETER :: WP = real32
 !

diff --git a/SRC/dgedmd.f90 b/SRC/dgedmd.f90
@@ -10,9 +10,8 @@
 !                        K, REIG,  IMEIG,   Z, LDZ,  RES,  &
 !                        B, LDB, W,  LDW,   S, LDS,        &
 !                        WORK, LWORK, IWORK, LIWORK, INFO )
-!
 !.....
-!     USE                   iso_fortran_env
+!     USE, INTRINSIC :: iso_fortran_env, only: real64
 !     IMPLICIT NONE
 !     INTEGER, PARAMETER :: WP = real64
 !.....
@@ -541,7 +540,7 @@ SUBROUTINE DGEDMD( JOBS, JOBZ, JOBR, JOBF,  WHTSVD,  &
 !  -- Colorado Denver and NAG Ltd..                                   --
 !
 !.....
-      USE                   iso_fortran_env
+      USE, INTRINSIC :: iso_fortran_env, only: real64
       IMPLICIT NONE
       INTEGER, PARAMETER :: WP = real64
 !

diff --git a/SRC/dgedmdq.f90 b/SRC/dgedmdq.f90
@@ -11,7 +11,7 @@
 !                         Z, LDZ, RES,  B,     LDB,   V, LDV,    &
 !                         S, LDS, WORK, LWORK, IWORK, LIWORK, INFO )
 !.....
-!     USE                   iso_fortran_env
+!     USE, INTRINSIC :: iso_fortran_env, only: real64
 !     IMPLICIT NONE
 !     INTEGER, PARAMETER :: WP = real64
 !.....
@@ -581,7 +581,7 @@ SUBROUTINE DGEDMDQ( JOBS,  JOBZ, JOBR, JOBQ, JOBT, JOBF,   &
 !  -- Colorado Denver and NAG Ltd..                                   --
 !
 !.....
-      USE                   iso_fortran_env
+      USE, INTRINSIC :: iso_fortran_env, only: real64
       IMPLICIT NONE
       INTEGER, PARAMETER :: WP = real64
 !

diff --git a/SRC/sgedmd.f90 b/SRC/sgedmd.f90
@@ -11,7 +11,7 @@
 !                        B, LDB, W,  LDW,   S, LDS,        &
 !                        WORK, LWORK, IWORK, LIWORK, INFO )
 !.....
-!     USE                   iso_fortran_env
+!     USE, INTRINSIC :: iso_fortran_env, only: real32
 !     IMPLICIT NONE
 !     INTEGER, PARAMETER :: WP = real32
 !.....
@@ -540,7 +540,7 @@ SUBROUTINE SGEDMD( JOBS, JOBZ, JOBR, JOBF,  WHTSVD,  &
 !  -- Colorado Denver and NAG Ltd..                                   --
 !
 !.....
-      USE                   iso_fortran_env
+      USE, INTRINSIC :: iso_fortran_env, only: real32
       IMPLICIT NONE
       INTEGER, PARAMETER :: WP = real32
 !

diff --git a/SRC/sgedmdq.f90 b/SRC/sgedmdq.f90
@@ -11,7 +11,7 @@
 !                         Z, LDZ, RES,  B,     LDB,   V, LDV,    &
 !                         S, LDS, WORK, LWORK, IWORK, LIWORK, INFO )
 !.....
-!     USE                   iso_fortran_env
+!     USE, INTRINSIC :: iso_fortran_env, only: real32
 !     IMPLICIT NONE
 !     INTEGER, PARAMETER :: WP = real32
 !.....
@@ -581,7 +581,7 @@ SUBROUTINE SGEDMDQ( JOBS,  JOBZ, JOBR, JOBQ, JOBT, JOBF,   &
 !  -- Colorado Denver and NAG Ltd..                                   --
 !
 !.....
-      USE                   iso_fortran_env
+      USE, INTRINSIC :: iso_fortran_env, only: real32
       IMPLICIT NONE
       INTEGER, PARAMETER :: WP = real32
 !

diff --git a/SRC/zgedmd.f90 b/SRC/zgedmd.f90
@@ -11,7 +11,7 @@
 !                         W, LDW,  S, LDS, ZWORK,  LZWORK,   &
 !                         RWORK, LRWORK, IWORK, LIWORK, INFO )
 !......
-!      USE                   iso_fortran_env
+!      USE, INTRINSIC :: iso_fortran_env, only: real64
 !      IMPLICIT NONE
 !      INTEGER, PARAMETER :: WP = real64
 !
@@ -506,7 +506,7 @@ SUBROUTINE ZGEDMD( JOBS, JOBZ, JOBR, JOBF,  WHTSVD,   &
 !  -- Colorado Denver and NAG Ltd..                                   --
 !
 !.....
-      USE                   iso_fortran_env
+      USE, INTRINSIC :: iso_fortran_env, only: real64
       IMPLICIT NONE
       INTEGER, PARAMETER :: WP = real64
 !

diff --git a/SRC/zgedmdq.f90 b/SRC/zgedmdq.f90
@@ -12,7 +12,7 @@
 !                         S, LDS, ZWORK, LZWORK, WORK,  LWORK,   &
 !                         IWORK, LIWORK, INFO )
 !.....
-!     USE                   iso_fortran_env
+!     USE, INTRINSIC :: iso_fortran_env, only: real64
 !     IMPLICIT NONE
 !     INTEGER, PARAMETER :: WP = real64
 !.....
@@ -562,7 +562,7 @@ SUBROUTINE ZGEDMDQ( JOBS,  JOBZ, JOBR, JOBQ, JOBT, JOBF,   &
 !  -- Colorado Denver and NAG Ltd..                                   --
 !
 !.....
-      USE                   iso_fortran_env
+      USE, INTRINSIC :: iso_fortran_env, only: real64
       IMPLICIT NONE
       INTEGER, PARAMETER :: WP = real64
 !