From 37d511062d70fdfedf89444a0e68270ae6adc313 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sat, 22 May 2021 09:24:00 +0200
Subject: [PATCH] simplified (using new mapping)

---
 src/phase_mechanical.f90 | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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