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