From 1c46e7ea1a73a70eeac965a84683244beadc421b Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 13 Jan 2022 08:30:46 +0100 Subject: [PATCH] not needed --- src/prec.f90 | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/prec.f90 b/src/prec.f90 index 2616a6dcf..8de82fee8 100644 --- a/src/prec.f90 +++ b/src/prec.f90 @@ -22,11 +22,6 @@ module prec integer, parameter :: pReal = IEEE_selected_real_kind(15,307) !< number with 15 significant digits, up to 1e+-307 (typically 64 bit) integer, parameter :: pI32 = selected_int_kind(9) !< number with at least up to +-1e9 (typically 32 bit) integer, parameter :: pI64 = selected_int_kind(18) !< number with at least up to +-1e18 (typically 64 bit) -#if(INT==8) - integer, parameter :: pInt = pI64 -#else - integer, parameter :: pInt = pI32 -#endif #ifdef PETSC PetscInt, private :: dummy integer, parameter :: pPETSCINT = kind(dummy)