diff --git a/src/marc/discretization_marc.f90 b/src/marc/discretization_marc.f90
index 2930e02b1..fd0852257 100644
--- a/src/marc/discretization_marc.f90
+++ b/src/marc/discretization_marc.f90
@@ -226,9 +226,9 @@ subroutine inputRead(elem,node0_elem,connectivity_elem,microstructureAt)
 
   connectivity_elem = inputRead_connectivityElem(nElems,elem%nNodes,inputFile)
 
-  call inputRead_microstructureAnd(microstructureAt, &
-                                   nElems,elem%nNodes,nameElemSet,mapElemSet,&
-                                   initialcondTableStyle,inputFile)
+  call inputRead_microstructure(microstructureAt, &
+                                nElems,elem%nNodes,nameElemSet,mapElemSet,&
+                                initialcondTableStyle,inputFile)
 end subroutine inputRead