From 4cfeaba98c87416c709e57aaaa3f5ebfee55a655 Mon Sep 17 00:00:00 2001 From: David Minton Date: Thu, 20 May 2021 06:39:55 -0400 Subject: [PATCH] Switched standard type kind parameters from integers to associations. --- src/modules/swiftest_globals.f90 | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) diff --git a/src/modules/swiftest_globals.f90 b/src/modules/swiftest_globals.f90 index 7df94dcf2..fa84e1fe4 100644 --- a/src/modules/swiftest_globals.f90 +++ b/src/modules/swiftest_globals.f90 @@ -4,19 +4,11 @@ module swiftest_globals !! !! Basic parameters, definitions, and global type definitions used throughout the Swiftest project !! Adapted from David E. Kaufmann's Swifter modules: module_parameters.f90 and module_swifter.f90 - use, intrinsic :: iso_fortran_env ! Use the intrinsic kind definitions + use, intrinsic :: iso_fortran_env, only : I1B => int8, I2B => int16, I4B => int32, I8B => int64, & + SP => real32, DP => real64, QP => real128 implicit none public - integer, parameter :: I8B = int64 !! Symbolic name for kind types of 8-byte integers - integer, parameter :: I4B = int32 !! Symbolic name for kind types of 4-byte integers - integer, parameter :: I2B = int16 !! Symbolic name for kind types of 2-byte integers - integer, parameter :: I1B = int8 !! Symbolic name for kind types of 1-byte integers - - integer, parameter :: SP = real32 !! Symbolic name for kind types of single-precision reals - integer, parameter :: DP = real64 !! Symbolic name for kind types of double-precision reals - integer, parameter :: QP = real128 !! Symbolic name for kind types of quad-precision reals - integer, parameter :: LGT = KIND(.TRUE.) !! Symbolic name for kind type of default logical