From 7c97fc32f86df7a1c14662abaf3d7b0f92eaa8bd Mon Sep 17 00:00:00 2001 From: achalhp Date: Thu, 13 Jun 2024 18:41:25 +0530 Subject: [PATCH] Comment added --- src/phase_mechanical_plastic_phenopowerlaw.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/phase_mechanical_plastic_phenopowerlaw.f90 b/src/phase_mechanical_plastic_phenopowerlaw.f90 index 985a93c44..fe2fc2ef3 100644 --- a/src/phase_mechanical_plastic_phenopowerlaw.f90 +++ b/src/phase_mechanical_plastic_phenopowerlaw.f90 @@ -545,7 +545,7 @@ associate(prm => param(ph), stt => state(ph), dlt => deltastate(ph)) neighbor_e = geom(ph)%IPneighborhood(1,n,en) if (any(dNeq(phase_O_0(ph)%data(en)%asQuaternion(), & - phase_O_0(ph)%data(neighbor_e)%asQuaternion()))) then + phase_O_0(ph)%data(neighbor_e)%asQuaternion()))) then !> Selection of grain boundary elements Ability_Nucleation: if(stt%f_twin(twin_var,en)>(stt%fmc_twin(twin_var,en)+prm%checkstep)) then stt%fmc_twin(twin_var,en) = stt%fmc_twin(twin_var,en)+prm%checkstep