From ea718573ef00fef91e4c66e57aac279b7ee72a91 Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Thu, 29 Apr 2010 12:28:51 +0000 Subject: [PATCH] =?UTF-8?q?return=20180=C2=B0=20disorientation=20about=201?= =?UTF-8?q?00=20for=20neighbors=20with=20different=20phases?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- code/crystallite.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index eec5b281f..a4448de56 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -1634,7 +1634,7 @@ logical error crystallite_symmetryID(1,i,e)) ! calculate disorientation else ! for neighbor with different phase - crystallite_disorientation(:,n,1,i,e) = (/1.0_pReal, 0.0_pReal, 0.0_pReal, 0.0_pReal/) ! identity "rotation" + crystallite_disorientation(:,n,1,i,e) = (/0.0_pReal, 1.0_pReal, 0.0_pReal, 0.0_pReal/) ! 180 degree rotation about 100 axis endif else ! no existing neighbor