diff --git a/src/phase_mechanical.f90 b/src/phase_mechanical.f90
index 29e9e8ada..e2ad8f968 100644
--- a/src/phase_mechanical.f90
+++ b/src/phase_mechanical.f90
@@ -971,11 +971,9 @@ subroutine crystallite_results(group,ph)
 
     integer, intent(in) :: ph
     type(rotation), dimension(:,:,:), intent(in) :: dataset
-    real(pReal), allocatable, dimension(:,:) :: select_rotations
+    real(pReal), dimension(4,count(material_phaseID==ph)) :: select_rotations
     integer :: el,ip,co,j
 
-    allocate(select_rotations(4,count(material_phaseAt==ph)*homogenization_maxNconstituents*discretization_nIPs))
-
     j=0
     do el = 1, size(material_phaseAt,2)
       do ip = 1, discretization_nIPs