From 4c20daa00daa40508ae72c285c4631ade5594c81 Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Thu, 28 Oct 2010 12:22:17 +0000 Subject: [PATCH] state loop count was wrong for adaptive euler integration --- code/crystallite.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index f162cf888..5c5afb197 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -1639,7 +1639,7 @@ relTemperatureResiduum = 0.0_pReal crystallite_converged(g,i,e) = .true. ! ... converged per definitionem crystallite_todo(g,i,e) = .false. ! ... integration done !$OMP CRITICAL (distributionState) - debug_StateLoopDistribution(6,mode) = debug_StateLoopDistribution(6,mode) + 1 + debug_StateLoopDistribution(2,mode) = debug_StateLoopDistribution(2,mode) + 1 !$OMPEND CRITICAL (distributionState) endif