From 9d4779039124d8799dd55b114ea1b37716eb6b1c Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Tue, 26 May 2009 17:33:40 +0000 Subject: [PATCH] another misspelling... --- trunk/lattice.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/trunk/lattice.f90 b/trunk/lattice.f90 index cb532173b..33b874a7b 100644 --- a/trunk/lattice.f90 +++ b/trunk/lattice.f90 @@ -610,7 +610,7 @@ subroutine lattice_init() allocate(lattice_interactionSlipSlip(lattice_maxNslip,lattice_maxNslip,lattice_Nstructure)); lattice_interactionSlipSlip = 0_pInt allocate(lattice_interactionSlipTwin(lattice_maxNslip,lattice_maxNtwin,lattice_Nstructure)); lattice_interactionSlipTwin = 0_pInt allocate(lattice_interactionTwinTwin(lattice_maxNtwin,lattice_maxNtwin,lattice_Nstructure)); lattice_interactionTwinTwin = 0_pInt - allocate(lattice_interactionTwinTwin(lattice_maxNtwin,lattice_maxNtwin,lattice_Nstructure)); lattice_interactionTwinSlip = 0_pInt + allocate(lattice_interactionTwinSlip(lattice_maxNtwin,lattice_maxNtwin,lattice_Nstructure)); lattice_interactionTwinSlip = 0_pInt end subroutine