From 4357e29e07210c059ca37c1601f745569c35a33b Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Fri, 28 Aug 2009 15:26:18 +0000 Subject: [PATCH] yet another missing "then" in homogenization --- code/homogenization.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/homogenization.f90 b/code/homogenization.f90 index a4bcb9e3a..036c794ee 100644 --- a/code/homogenization.f90 +++ b/code/homogenization.f90 @@ -301,7 +301,7 @@ subroutine materialpoint_stressAndItsTangent(& if (homogenization_sizeState(i,e) > 0_pInt) & homogenization_subState0(i,e)%p = homogenization_state(i,e)%p ! ...internal state of homog scheme materialpoint_subF0(:,:,i,e) = materialpoint_subF(:,:,i,e) ! ...def grad - elseif (materialpoint_requested(i,e)) ! this materialpoint just converged ! already at final time + elseif (materialpoint_requested(i,e)) then ! this materialpoint just converged ! already at final time !$OMP CRITICAL (distributionHomog) debug_MaterialpointLoopDistribution(min(nHomog+1,NiterationHomog)) = & debug_MaterialpointLoopDistribution(min(nHomog+1,NiterationHomog)) + 1