From 79a5a30a90358c52197facb162229e084b773ecd Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Thu, 18 Oct 2012 07:25:49 +0000 Subject: [PATCH] removed now obsolete vectorproduct variables st, tt... --- code/lattice.f90 | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/code/lattice.f90 b/code/lattice.f90 index 7c98e54d7..fbae1d495 100644 --- a/code/lattice.f90 +++ b/code/lattice.f90 @@ -848,11 +848,9 @@ integer(pInt) function lattice_initializeStructure(struct,CoverA) character(len=*) struct real(pReal) CoverA real(pReal), dimension(3,lattice_maxNslip) :: sd = 0.0_pReal, & - sn = 0.0_pReal, & - st = 0.0_pReal + sn = 0.0_pReal real(pReal), dimension(3,lattice_maxNtwin) :: td = 0.0_pReal, & - tn = 0.0_pReal, & - tt = 0.0_pReal + tn = 0.0_pReal real(pReal), dimension(lattice_maxNtwin) :: ts = 0.0_pReal integer(pInt), dimension(lattice_maxNslipFamily) :: myNslipSystem = 0_pInt integer(pInt), dimension(lattice_maxNtwinFamily) :: myNtwinSystem = 0_pInt