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