diff --git a/code/homogenization.f90 b/code/homogenization.f90
index 05e47b936..297cb3894 100644
--- a/code/homogenization.f90
+++ b/code/homogenization.f90
@@ -44,7 +44,8 @@ MODULE homogenization
                                                      materialpoint_converged
  logical, dimension(:,:,:), allocatable ::           materialpoint_doneAndHappy
  integer(pInt)                                       homogenization_maxSizeState, &
-                                                     homogenization_maxSizePostResults
+                                                     homogenization_maxSizePostResults, &
+                                                     materialpoint_sizeResults
 
 CONTAINS
 
@@ -131,8 +132,9 @@ subroutine homogenization_init(Temperature)
  homogenization_maxSizeState       = maxval(homogenization_sizeState)
  homogenization_maxSizePostResults = maxval(homogenization_sizePostResults)
 
- allocate(materialpoint_results(  1+ 1+homogenization_maxSizePostResults + &    ! grain count, homogSize, homogResult
-          homogenization_maxNgrains*(1+crystallite_Nresults+constitutive_maxSizePostResults), mesh_maxNips,mesh_NcpElems))
+ materialpoint_sizeResults = 1+ 1+homogenization_maxSizePostResults + &    ! grain count, homogSize, homogResult
+          homogenization_maxNgrains*(1+crystallite_Nresults+constitutive_maxSizePostResults)
+ allocate(materialpoint_results(  materialpoint_sizeResults, mesh_maxNips,mesh_NcpElems))
 
 
 !    *** Output to MARC output file ***
diff --git a/code/mpie_cpfem_marc.f90 b/code/mpie_cpfem_marc.f90
index 43b0f5073..d313242ce 100644
--- a/code/mpie_cpfem_marc.f90
+++ b/code/mpie_cpfem_marc.f90
@@ -165,7 +165,6 @@ subroutine hypela2(&
                       debug_reset
  use mesh, only:      mesh_FEasCP
  use CPFEM, only:     CPFEM_general,CPFEM_init_done
- use homogenization, only: materialpoint_sizeResults, materialpoint_results
  implicit none
  
 !     ** Start of generated type statements **