From c0d1140234baefb522f75f7d1e2f7a4e1742cdd3 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Fri, 28 Aug 2009 15:14:27 +0000 Subject: [PATCH] added a missing "then" --- code/crystallite.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index 2ee284e8e..a55a8f0b0 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -368,7 +368,7 @@ subroutine crystallite_stressAndItsTangent(updateJaco) crystallite_subLp0(:,:,g,i,e) = crystallite_Lp(:,:,g,i,e) ! ...plastic velocity gradient constitutive_subState0(g,i,e)%p = constitutive_state(g,i,e)%p ! ...microstructure crystallite_subTstar0_v(:,g,i,e) = crystallite_Tstar_v(:,g,i,e) ! ...2nd PK stress - elseif (crystallite_onTrack(g,i,e)) ! this crystallite just converged + elseif (crystallite_onTrack(g,i,e)) then ! this crystallite just converged !$OMP CRITICAL (distributionCrystallite) debug_CrystalliteLoopDistribution(min(nCryst+1,NiterationCrystallite)) = & debug_CrystalliteLoopDistribution(min(nCryst+1,NiterationCrystallite)) + 1