diff --git a/src/Marc/DAMASK_Marc.f90 b/src/Marc/DAMASK_Marc.f90
index f2f6488f1..e104ca345 100644
--- a/src/Marc/DAMASK_Marc.f90
+++ b/src/Marc/DAMASK_Marc.f90
@@ -16,15 +16,24 @@
 #endif
 
 #include "../prec.f90"
+#include "../parallelization.f90"
+#include "../constants.f90"
+#include "../misc.f90"
+#include "../IO.f90"
+#include "../YAML_types.f90"
+#include "../YAML_parse.f90"
+#include "../HDF5_utilities.f90"
 
 module DAMASK_interface
-  use prec
   use, intrinsic :: ISO_fortran_env, only: &
     compiler_version, &
     compiler_options
   use ifport, only: &
     CHDIR
 
+  use prec
+  use IO
+
   implicit none(type,external)
   private
 
@@ -105,7 +114,7 @@ logical function solverIsSymmetric()
        status='old', position='rewind', action='read',iostat=myStat)
   do
     read (fileUnit,'(A)',END=100) line
-    if (index(trim(lc(line)),'solver') == 1) then
+    if (index(trim(IO_lc(line)),'solver') == 1) then
       read (fileUnit,'(A)',END=100) line                                                            ! next line
         s =     verify(line,      ' ')                                                              ! start of first chunk
         s = s + verify(line(s+1:),' ')                                                              ! start of second chunk
@@ -114,40 +123,11 @@ logical function solverIsSymmetric()
     end if
   end do
 100 close(fileUnit)
-  contains
-
-  !--------------------------------------------------------------------------------------------------
-  !> @brief changes characters in string to lower case
-  !> @details copied from IO_lc
-  !--------------------------------------------------------------------------------------------------
-  function lc(string)
-
-    character(len=*), intent(in) :: string                                                            !< string to convert
-    character(len=len(string))   :: lc
-
-    character(26), parameter :: LOWER = 'abcdefghijklmnopqrstuvwxyz'
-    character(26), parameter :: UPPER = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-
-    integer                  :: i,n
-
-    do i=1,len(string)
-      lc(i:i) = string(i:i)
-      n = index(UPPER,lc(i:i))
-      if (n/=0) lc(i:i) = LOWER(n:n)
-    end do
-  end function lc
 
 end function solverIsSymmetric
 
 end module DAMASK_interface
 
-#include "../parallelization.f90"
-#include "../constants.f90"
-#include "../misc.f90"
-#include "../IO.f90"
-#include "../YAML_types.f90"
-#include "../YAML_parse.f90"
-#include "../HDF5_utilities.f90"
 #include "../result.f90"
 #include "../config.f90"
 #include "../LAPACK_interface.f90"