From 68aa7b9f53f143394066c9f9c38500afe145c27d Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Tue, 26 May 2009 17:08:14 +0000 Subject: [PATCH] corrected misspelled pointer variable to avoid segmentation fault --- trunk/lattice.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/trunk/lattice.f90 b/trunk/lattice.f90 index 417c4a68a..cb532173b 100644 --- a/trunk/lattice.f90 +++ b/trunk/lattice.f90 @@ -723,7 +723,7 @@ function lattice_initializeStructure(struct,CoverA) interactionSlipSlip => lattice_hex_interactionSlipSlip interactionSlipTwin => lattice_hex_interactionSlipTwin interactionTwinTwin => lattice_hex_interactionTwinTwin - interactionTwinTwin => lattice_hex_interactionTwinSlip + interactionTwinSlip => lattice_hex_interactionTwinSlip endif end select