From efee9d98e72e025d1b2a7aa49e78a20f70f13e22 Mon Sep 17 00:00:00 2001 From: Test User Date: Tue, 3 Jul 2018 21:58:28 +0200 Subject: [PATCH] elseif contained only debug statements, not needed --- src/homogenization.f90 | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/homogenization.f90 b/src/homogenization.f90 index 23c2ccad5..75330e86c 100644 --- a/src/homogenization.f90 +++ b/src/homogenization.f90 @@ -720,11 +720,6 @@ subroutine materialpoint_stressAndItsTangent(updateJaco,dt) hydrogenfluxState(mappingHomogenization(2,i,e))%State( :,mappingHomogenization(1,i,e))! ...internal hydrogen transport state materialpoint_subF0(1:3,1:3,i,e) = materialpoint_subF(1:3,1:3,i,e) ! ...def grad !$OMP FLUSH(materialpoint_subF0) - elseif (materialpoint_requested(i,e)) then steppingNeeded ! already at final time (??) - if (iand(debug_level(debug_homogenization), debug_levelBasic) /= 0_pInt) then - !$OMP CRITICAL (distributionHomog) - !$OMP END CRITICAL (distributionHomog) - endif endif steppingNeeded else converged