From 94100e8d8e2303afb17bdb7ac0d02a7fab2f4c8b Mon Sep 17 00:00:00 2001 From: Krishna Komerla Date: Mon, 13 Feb 2012 15:21:03 +0000 Subject: [PATCH] missing line break --- code/crystallite.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index 35b6ecc24..5725aeeed 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -222,7 +222,8 @@ allocate(crystallite_orientation(4,gMax,iMax,eMax)); crystalli allocate(crystallite_orientation0(4,gMax,iMax,eMax)); crystallite_orientation0 = 0.0_pReal allocate(crystallite_rotation(4,gMax,iMax,eMax)); crystallite_rotation = 0.0_pReal allocate(crystallite_disorientation(4,nMax,gMax,iMax,eMax)); crystallite_disorientation = 0.0_pReal -allocate(crystallite_symmetryID(gMax,iMax,eMax)); crystallite_symmetryID = 0_pIntallocate(crystallite_localConstitution(gMax,iMax,eMax)); crystallite_localConstitution = .true. +allocate(crystallite_symmetryID(gMax,iMax,eMax)); crystallite_symmetryID = 0_pInt +allocate(crystallite_localConstitution(gMax,iMax,eMax)); crystallite_localConstitution = .true. allocate(crystallite_requested(gMax,iMax,eMax)); crystallite_requested = .false. allocate(crystallite_todo(gMax,iMax,eMax)); crystallite_todo = .false. allocate(crystallite_converged(gMax,iMax,eMax)); crystallite_converged = .true.