diff --git a/code/CPFEM.f90 b/code/CPFEM.f90
index f8e71e3ec..37380abd5 100644
--- a/code/CPFEM.f90
+++ b/code/CPFEM.f90
@@ -67,7 +67,8 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
 
   !*** variables and functions from other modules ***!
   use prec, only:                                     pReal, &
-                                                      pInt
+                                                      pInt, &
+                                                      prec_init
   use numerics, only:                                 numerics_init, & 
                                                       relevantStrain, &
                                                       iJacoStiffness
@@ -119,6 +120,8 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
                                                       materialpoint_Temperature, &
                                                       materialpoint_stressAndItsTangent, &
                                                       materialpoint_postResults
+ use IO, only:                                        IO_init
+ use cpfem_interface
   
   implicit none
   
diff --git a/code/mpie_cpfem_marc.f90 b/code/mpie_cpfem_marc.f90
index 63f6e1354..e73851966 100644
--- a/code/mpie_cpfem_marc.f90
+++ b/code/mpie_cpfem_marc.f90
@@ -36,14 +36,20 @@
 !             - creeps: timinc
 !********************************************************************
 !
+MODULE cpfem_interface
+
+CONTAINS
+
 subroutine mpie_cpfem_init
  write(6,*)
- write(6,*) '<<<+-  mpie_cpfem init  -+>>>'
+ write(6,*) '<<<+-  mpie_cpfem_marc init  -+>>>'
  write(6,*) '$Id$'
  write(6,*)
  return
 end subroutine
 
+END MODULE
+
  include "prec.f90"             ! uses nothing else
  include "IO.f90"               ! uses prec
  include "numerics.f90"         ! uses prec, IO