From 872c85112fc4d9f966e68c6e7c2bd9a13a626e9a Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 20 Oct 2019 14:01:42 +0200 Subject: [PATCH] bugfix, Lp not available anymore for crystallite --- src/crystallite.f90 | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index 8cc30db28..c35237b9d 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -904,10 +904,6 @@ function crystallite_postResults(ipc, ip, el) mySize = 9 crystallite_postResults(c+1:c+mySize) = & reshape(transpose(crystallite_Fp(1:3,1:3,ipc,ip,el)),[mySize]) - case (lp_ID) - mySize = 9 - crystallite_postResults(c+1:c+mySize) = & - reshape(transpose(crystallite_Lp(1:3,1:3,ipc,ip,el)),[mySize]) case (p_ID) mySize = 9 crystallite_postResults(c+1:c+mySize) = &