From a08d2638650f0c7eda08a74a730a70f90ce695c9 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Fri, 2 Aug 2013 06:18:41 +0000 Subject: [PATCH] remnoved some unused fuctions from use statements --- code/crystallite.f90 | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index 5818ad637..7a692b4aa 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -526,7 +526,6 @@ subroutine crystallite_stressAndItsTangent(updateJaco,rate_sensitivity) constitutive_state_backup, & constitutive_subState0, & constitutive_partionedState0, & - constitutive_homogenizedC, & constitutive_dotState, & constitutive_dotState_backup, & constitutive_TandItsTangent @@ -936,10 +935,11 @@ subroutine crystallite_stressAndItsTangent(updateJaco,rate_sensitivity) write(6,*) endif #endif - elseif (formerSubStep > 0.0_pReal) then ! this crystallite just converged for the entire timestep + else ! this crystallite just converged for the entire timestep crystallite_todo(g,i,e) = .false. ! so done here !$OMP FLUSH(crystallite_todo) - if (iand(debug_level(debug_crystallite),debug_levelBasic) /= 0_pInt) then + if (iand(debug_level(debug_crystallite),debug_levelBasic) /= 0_pInt & + .and. formerSubStep > 0.0_pReal) then !$OMP CRITICAL (distributionCrystallite) debug_CrystalliteLoopDistribution(min(nCryst+1_pInt,NiterationCrystallite)) = & debug_CrystalliteLoopDistribution(min(nCryst+1_pInt,NiterationCrystallite)) + 1_pInt @@ -2980,8 +2980,7 @@ logical function crystallite_integrateStress(& debug_cumLpTicks, & debug_StressLoopDistribution use constitutive, only: constitutive_LpAndItsTangent, & - constitutive_TandItsTangent, & - constitutive_homogenizedC + constitutive_TandItsTangent use math, only: math_mul33x33, & math_mul33xx33, & math_mul66x6, &