From a4fe71531933be767b37a60f9b337f3c5b7f22d9 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Fri, 23 Oct 2020 15:33:01 +0200 Subject: [PATCH] removed unnecessary variables --- src/crystallite.f90 | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index dc6b9f7da..05c409baa 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -315,7 +315,6 @@ function crystallite_stress() c, & !< counter in integration point component loop i, & !< counter in integration point loop e, & !< counter in element loop - startIP, endIP, & s logical, dimension(homogenization_maxNgrains,discretization_nIP,discretization_nElem) :: todo !ToDo: need to set some values to false for different Ngrains real(pReal), dimension(:,:,:,:,:), allocatable :: & @@ -356,17 +355,8 @@ function crystallite_stress() enddo elementLooping1 !$OMP END PARALLEL DO - singleRun: if (FEsolving_execELem(1) == FEsolving_execElem(2) .and. & - FEsolving_execIP (1) == FEsolving_execIP (2)) then - startIP = FEsolving_execIP(1) - endIP = startIP - else singleRun - startIP = 1 - endIP = discretization_nIP - endif singleRun - NiterationCrystallite = 0 - cutbackLooping: do while (any(todo(:,startIP:endIP,FEsolving_execELem(1):FEsolving_execElem(2)))) + cutbackLooping: do while (any(todo(:,FEsolving_execIP(1):FEsolving_execIP(2),FEsolving_execELem(1):FEsolving_execElem(2)))) NiterationCrystallite = NiterationCrystallite + 1 #ifdef DEBUG