From 7f05bf9c0a49d22de2a1f2cafa7a5ccbf905f291 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 16 Jul 2018 11:54:46 +0200 Subject: [PATCH] leftover variables not needed anymore --- PRIVATE | 2 +- src/crystallite.f90 | 8 +------- 2 files changed, 2 insertions(+), 8 deletions(-) diff --git a/PRIVATE b/PRIVATE index d1d465808..4d3d6d517 160000 --- a/PRIVATE +++ b/PRIVATE @@ -1 +1 @@ -Subproject commit d1d46580823d2896059b9514ddc975f9fe5f6b1f +Subproject commit 4d3d6d517171b7c22295896c1c4358238fe6d05d diff --git a/src/crystallite.f90 b/src/crystallite.f90 index aea4fb993..0ee71b5de 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -494,7 +494,6 @@ subroutine crystallite_stressAndItsTangent(updateJaco) subStepMinCryst, & subStepSizeCryst, & stepIncreaseCryst, & - nCryst, & numerics_integrator, & numerics_integrationMode, & numerics_timeSyncing @@ -1215,8 +1214,6 @@ end subroutine crystallite_stressAndItsTangent subroutine crystallite_integrateStateRK4() use, intrinsic :: & IEEE_arithmetic - use numerics, only: & - numerics_integrationMode use debug, only: & #ifdef DEBUG debug_e, & @@ -1517,8 +1514,7 @@ subroutine crystallite_integrateStateRKCK45() debug_levelExtensive, & debug_levelSelective use numerics, only: & - rTol_crystalliteState, & - numerics_integrationMode + rTol_crystalliteState use FEsolving, only: & FEsolving_execElem, & FEsolving_execIP @@ -2581,7 +2577,6 @@ subroutine crystallite_integrateStateFPI() debug_levelSelective use numerics, only: & nState, & - numerics_integrationMode, & rTol_crystalliteState use FEsolving, only: & FEsolving_execElem, & @@ -3156,7 +3151,6 @@ logical function crystallite_integrateStress(& aTol_crystalliteStress, & rTol_crystalliteStress, & iJacoLpresiduum, & - numerics_integrationMode, & subStepSizeLp, & subStepSizeLi use debug, only: debug_level, &