From 73523c8f629281e2ff72452ddfb9e2351fb65520 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 23 Dec 2020 11:24:02 +0100 Subject: [PATCH] not a global variable --- src/homogenization.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/homogenization.f90 b/src/homogenization.f90 index 91b9a5194..8d90af515 100644 --- a/src/homogenization.f90 +++ b/src/homogenization.f90 @@ -220,7 +220,7 @@ subroutine materialpoint_stressAndItsTangent(dt) any(subStep(FEsolving_execIP(1):FEsolving_execIP(2),& FEsolving_execElem(1):FEsolving_execElem(2)) > num%subStepMinHomog)) - !$OMP PARALLEL DO PRIVATE(m) + !$OMP PARALLEL DO PRIVATE(m,myNgrains) elementLooping1: do e = FEsolving_execElem(1),FEsolving_execElem(2) myNgrains = homogenization_Nconstituents(material_homogenizationAt(e)) IpLooping1: do i = FEsolving_execIP(1),FEsolving_execIP(2)