Merge branch 'fix_status_allocation' into 'development'

fix status allocation when mechanics only fails See merge request damask/DAMASK!930
MarDiehl · Apr 9, 2024 · 7529cf1 · 7529cf1
2 parents 57f88a3 + 05c40bf
commit 7529cf1
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/homogenization.f90 b/src/homogenization.f90
@@ -257,8 +257,10 @@ subroutine homogenization_mechanical_response(status,Delta_t,cell_start,cell_end
     converged = converged .and. all([(phase_damage_constitutive(Delta_t,co,ce)==STATUS_OK,co=1,homogenization_Nconstituents(ho))])
 
     if (.not. converged) then
-      if (status == STATUS_OK) print*, ' Cell ', ce, ' failed (damage)'
-      status = STATUS_FAIL_PHASE_DAMAGE
+      if (status == STATUS_OK) then
+        print*, ' Cell ', ce, ' failed (damage)'
+        status = STATUS_FAIL_PHASE_DAMAGE
+      end if
     end if
   end do
   !$OMP END PARALLEL DO