From fa903c6f358229f6370ad86ba2df7dd76945a804 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 12 Feb 2020 20:50:09 +0100 Subject: [PATCH] not needed anymore --- src/material.f90 | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/material.f90 b/src/material.f90 index bd289dece..7e68049b8 100644 --- a/src/material.f90 +++ b/src/material.f90 @@ -159,8 +159,6 @@ module material microstructure_phase, & !< phase IDs of each microstructure microstructure_texture !< texture IDs of each microstructure - real(pReal), dimension(:,:,:,:), allocatable, public,protected :: & - material_Eulers type(Rotation), dimension(:), allocatable, private :: & texture_orientation !< Euler angles in material.config (possibly rotated for alignment) @@ -295,7 +293,6 @@ subroutine material_init allocate(material_phaseAt(homogenization_maxNgrains,discretization_nElem), source=0) allocate(material_texture(homogenization_maxNgrains,discretization_nIP,discretization_nElem),source=0) !this is only needed by plasticity nonlocal allocate(material_orientation0(homogenization_maxNgrains,discretization_nIP,discretization_nElem)) - allocate(material_Eulers(3,homogenization_maxNgrains,discretization_nIP,discretization_nElem)) do e = 1, discretization_nElem do i = 1, discretization_nIP @@ -304,7 +301,6 @@ subroutine material_init material_phaseAt(c,e) = microstructure_phase(c,myMicro) material_texture(c,i,e) = microstructure_texture(c,myMicro) material_orientation0(c,i,e) = texture_orientation(material_texture(c,i,e)) - material_Eulers(1:3,c,i,e) = texture_orientation(material_texture(c,i,e))%asEulers() enddo enddo enddo