From 1ff55b637414d99305be30f43fa368d8d19e1855 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 26 Mar 2019 21:43:51 +0100 Subject: [PATCH] not supported by ancient compiler needed for Abaqus --- src/prec.f90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/prec.f90 b/src/prec.f90 index 8b981b897..cba8a68ef 100644 --- a/src/prec.f90 +++ b/src/prec.f90 @@ -13,8 +13,11 @@ module prec implicit none private ! https://software.intel.com/en-us/blogs/2017/03/27/doctor-fortran-in-it-takes-all-kinds - +#ifdef Abaqus + integer, parameter, public :: pReal = selected_real_kind(15,307) !< number with 15 significant digits, up to 1e+-307 (typically 64 bit) +#else integer, parameter, public :: pReal = IEEE_selected_real_kind(15,307) !< number with 15 significant digits, up to 1e+-307 (typically 64 bit) +#endif #if(INT==8) integer, parameter, public :: pInt = selected_int_kind(18) !< number with at least up to +-1e18 (typically 64 bit) #else