From 6e1cbb427df712f57a4a43dc755b021cdcc5bf23 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 24 Apr 2013 12:32:25 +0000 Subject: [PATCH] parallel execution currently doesn't work, now disabled for explicit --- code/CPFEM.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/CPFEM.f90 b/code/CPFEM.f90 index 3548fcad5..79565c1af 100644 --- a/code/CPFEM.f90 +++ b/code/CPFEM.f90 @@ -372,7 +372,7 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt !$OMP END CRITICAL (write2out) endif - parallelExecution = usePingPong .and. .not. (iand(mode, CPFEM_EXPLICIT) /= 0_pInt) + parallelExecution = usePingPong !.and. .not. (iand(mode, CPFEM_EXPLICIT) /= 0_pInt) if (iand(mode, CPFEM_AGERESULTS) /= 0_pInt) then crystallite_F0 = crystallite_partionedF ! crystallite deformation (_subF is perturbed...)