From 80b84cf76a2bb9bc75bcb8f99eafca06197ad7fe Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sat, 29 Aug 2020 23:37:59 +0200
Subject: [PATCH] fixed hickup of state variables

two times the wrong location resulted in the correct behavior before
---
 src/marc/discretization_marc.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/marc/discretization_marc.f90 b/src/marc/discretization_marc.f90
index 618e3195b..2930e02b1 100644
--- a/src/marc/discretization_marc.f90
+++ b/src/marc/discretization_marc.f90
@@ -715,7 +715,7 @@ subroutine inputRead_microstructure(microstructureAt,&
           contInts = continuousIntValues(fileContent(l+k+m+1:),nElem,nameElemSet,mapElemSet,size(nameElemSet)) ! get affected elements
           do i = 1,contInts(1)
             e = mesh_FEM2DAMASK_elem(contInts(1+i))
-            if (sv == 2) microstructureAt(e) = myVal
+            if (sv == 3) microstructureAt(e) = myVal
           enddo
           if (initialcondTableStyle == 0) m = m + 1
         enddo