From 1dd2591982307bfb9dce9e9d54e5cf42fc927c2d Mon Sep 17 00:00:00 2001
From: Franz	Roters <f.roters@mpie.de>
Date: Tue, 13 Sep 2011 08:18:43 +0000
Subject: [PATCH] corrected wrong check of twin systems

---
 code/constitutive_dislotwin.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code/constitutive_dislotwin.f90 b/code/constitutive_dislotwin.f90
index df285adf0..86cf0fd8b 100644
--- a/code/constitutive_dislotwin.f90
+++ b/code/constitutive_dislotwin.f90
@@ -390,7 +390,7 @@ enddo
      endif
    enddo
    do f = 1,lattice_maxNtwinFamily
-     if (constitutive_dislotwin_Nslip(f,i) > 0_pInt) then
+     if (constitutive_dislotwin_Ntwin(f,i) > 0_pInt) then
        if (constitutive_dislotwin_burgersPerTwinFamily(f,i) <= 0.0_pReal)    call IO_error(221) !***
        if (constitutive_dislotwin_Ndot0PerTwinFamily(f,i) < 0.0_pReal)       call IO_error(226) !***
      endif