can be done in parallel

2020-04-02 09:29:58 +02:00 · 2020-04-02 09:29:58 +02:00 · 565cf8239f
parent d9806cb7f3
commit 565cf8239f
1 changed files with 2 additions and 0 deletions
--- a/src/crystallite.f90
+++ b/src/crystallite.f90
@ -1597,12 +1597,14 @@ subroutine nonlocalConvergenceCheck

  integer :: e,i,p

+  !$OMP PARALLEL DO PRIVATE(p)
  do e = FEsolving_execElem(1),FEsolving_execElem(2)
    p = material_phaseAt(1,e)
    do i = FEsolving_execIP(1),FEsolving_execIP(2)
      if(plasticState(p)%nonlocal) crystallite_converged(1,i,e) = .false.
    enddo
  enddo
+  !$OMP END PARALLEL DO

 end subroutine nonlocalConvergenceCheck