From e3dcaa6915fe3044eeb54fa7b192c1b5ed7b2e07 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Mon, 15 Oct 2007 14:36:25 +0000 Subject: [PATCH] outer crystal system loop now runs up to _MaxCrystalStructure (used to be hardcoded 3) --- trunk/crystal.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/trunk/crystal.f90 b/trunk/crystal.f90 index 7e0964ea4..9158847f0 100644 --- a/trunk/crystal.f90 +++ b/trunk/crystal.f90 @@ -20,7 +20,7 @@ implicit none !* Number of crystal structures (1-FCC,2-BCC,3-HCP) integer(pInt), parameter :: crystal_MaxCrystalStructure = 3 !* Total number of slip systems per crystal structure -!* (as to be changed according the definition of slip systems) +!* (has to be changed according the definition of slip systems) integer(pInt), dimension(crystal_MaxCrystalStructure), parameter :: crystal_MaxNslipOfStructure = & reshape((/12,48,12/),(/crystal_MaxCrystalStructure/)) !* Maximum number of slip systems over crystal structures @@ -167,7 +167,7 @@ integer(pInt) i,j,k,l real(pReal) invNorm !* Iteration over the crystal structures -do l=1,3 +do l=1,crystal_MaxCrystalStructure !* Iteration over the systems do k=1,crystal_MaxNslipOfStructure(l) !* Defintion of Schmid matrix