From 4ce827041517c99eee28050dd4f6ae400833cdfa Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Thu, 11 Oct 2007 11:42:37 +0000 Subject: [PATCH] corrected some variable names --- trunk/crystal.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/trunk/crystal.f90 b/trunk/crystal.f90 index 6059482ee..7e0964ea4 100644 --- a/trunk/crystal.f90 +++ b/trunk/crystal.f90 @@ -26,10 +26,10 @@ reshape((/12,48,12/),(/crystal_MaxCrystalStructure/)) !* Maximum number of slip systems over crystal structures integer(pInt), parameter :: crystal_MaxMaxNslipOfStructure = 48 !* Slip direction, slip normales and Schmid matrices -real(pReal), dimension(3,3,crystal_MaxMaxNslipOfStructure,constitutive_MaxCrystalStructure) :: crystal_Sslip -real(pReal), dimension(6,crystal_MaxMaxNslipOfStructure,constitutive_MaxCrystalStructure) :: crystal_Sslip_v -real(pReal), dimension(3,crystal_MaxMaxNslipOfStructure,constitutive_MaxCrystalStructure) :: crystal_sn -real(pReal), dimension(3,crystal_MaxMaxNslipOfStructure,constitutive_MaxCrystalStructure) :: crystal_sd +real(pReal), dimension(3,3,crystal_MaxMaxNslipOfStructure,crystal_MaxCrystalStructure) :: crystal_Sslip +real(pReal), dimension(6,crystal_MaxMaxNslipOfStructure,crystal_MaxCrystalStructure) :: crystal_Sslip_v +real(pReal), dimension(3,crystal_MaxMaxNslipOfStructure,crystal_MaxCrystalStructure) :: crystal_sn +real(pReal), dimension(3,crystal_MaxMaxNslipOfStructure,crystal_MaxCrystalStructure) :: crystal_sd !*** Slip systems for FCC structures (1) *** !* System {111}<110> Sort according Eisenlohr&Hantcherli