From 05eb80d38c9cdce8b895956c9bbb998c2a86d7fb Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 6 Mar 2019 15:49:31 +0100 Subject: [PATCH] pLongInt was not used --- src/CPFEM2.f90 | 2 +- src/constitutive.f90 | 6 ++---- src/crystallite.f90 | 3 +-- src/debug.f90 | 3 +-- 4 files changed, 5 insertions(+), 9 deletions(-) diff --git a/src/CPFEM2.f90 b/src/CPFEM2.f90 index b2aa2f598..087328bf6 100644 --- a/src/CPFEM2.f90 +++ b/src/CPFEM2.f90 @@ -93,7 +93,7 @@ subroutine CPFEM_init compiler_options #endif use prec, only: & - pInt, pReal, pLongInt + pInt, pReal use IO, only: & IO_timeStamp, & IO_error diff --git a/src/constitutive.f90 b/src/constitutive.f90 index b3b5ae875..36886da18 100644 --- a/src/constitutive.f90 +++ b/src/constitutive.f90 @@ -755,8 +755,7 @@ end subroutine constitutive_hooke_SandItsTangents !-------------------------------------------------------------------------------------------------- subroutine constitutive_collectDotState(S, FeArray, Fi, FpArray, subdt, ipc, ip, el) use prec, only: & - pReal, & - pLongInt + pReal use debug, only: & debug_level, & debug_constitutive, & @@ -896,8 +895,7 @@ end subroutine constitutive_collectDotState !-------------------------------------------------------------------------------------------------- subroutine constitutive_collectDeltaState(S, Fe, Fi, ipc, ip, el) use prec, only: & - pReal, & - pLongInt + pReal use debug, only: & debug_level, & debug_constitutive, & diff --git a/src/crystallite.f90 b/src/crystallite.f90 index 29724ced1..dbb3484d8 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -1088,8 +1088,7 @@ logical function integrateStress(& ) use, intrinsic :: & IEEE_arithmetic - use prec, only: pLongInt, & - tol_math_check, & + use prec, only: tol_math_check, & dEq0 use numerics, only: nStress, & aTol_crystalliteStress, & diff --git a/src/debug.f90 b/src/debug.f90 index 6debf84c2..7dcc018d3 100644 --- a/src/debug.f90 +++ b/src/debug.f90 @@ -8,8 +8,7 @@ module debug use prec, only: & pInt, & - pReal, & - pLongInt + pReal implicit none private