From e02fbdaebc34a5056dc0dfd44537495860660122 Mon Sep 17 00:00:00 2001 From: Christoph Conrads Date: Fri, 1 Mar 2024 12:45:56 +0100 Subject: [PATCH] xGEDMD(Q): silence warning with 64-bit integers Fix the following warning by GCC 12.2.0: Warning: Use of the NUMERIC_STORAGE_SIZE named constant from intrinsic module ISO_FORTRAN_ENV at (1) is incompatible with option -fdefault-integer-8 --- SRC/cgedmd.f90 | 4 ++-- SRC/cgedmdq.f90 | 4 ++-- SRC/dgedmd.f90 | 5 ++--- SRC/dgedmdq.f90 | 4 ++-- SRC/sgedmd.f90 | 4 ++-- SRC/sgedmdq.f90 | 4 ++-- SRC/zgedmd.f90 | 4 ++-- SRC/zgedmdq.f90 | 4 ++-- 8 files changed, 16 insertions(+), 17 deletions(-) diff --git a/SRC/cgedmd.f90 b/SRC/cgedmd.f90 index d4a09e8b42..9cc23e81e0 100644 --- 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 index 9e152a5956..0f296963c3 100644 --- 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 index 9c4afd182d..642e2d61b3 100644 --- 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 index b1fb62b44a..75d9d18ee3 100644 --- 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 index 2ce6a3b8c8..68e85d8210 100644 --- 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 index 769a7830b7..6bb0a9ed0a 100644 --- 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 index a2af6e04b9..7e40a3f1b6 100644 --- 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 index c16288d0fa..9436d471a8 100644 --- 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 !