state loop count was wrong for adaptive euler integration

This commit is contained in:
Christoph Kords 2010-10-28 12:22:17 +00:00
parent 17812c1f9e
commit 4c20daa00d
1 changed files with 1 additions and 1 deletions

View File

@ -1639,7 +1639,7 @@ relTemperatureResiduum = 0.0_pReal
crystallite_converged(g,i,e) = .true. ! ... converged per definitionem crystallite_converged(g,i,e) = .true. ! ... converged per definitionem
crystallite_todo(g,i,e) = .false. ! ... integration done crystallite_todo(g,i,e) = .false. ! ... integration done
!$OMP CRITICAL (distributionState) !$OMP CRITICAL (distributionState)
debug_StateLoopDistribution(6,mode) = debug_StateLoopDistribution(6,mode) + 1 debug_StateLoopDistribution(2,mode) = debug_StateLoopDistribution(2,mode) + 1
!$OMPEND CRITICAL (distributionState) !$OMPEND CRITICAL (distributionState)
endif endif