From 0f2e22805a7d7c3fdd70a363d89faa26b3a99b77 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 10 Nov 2016 06:53:47 +0100 Subject: [PATCH] deallocate "axes" shuffling of orientation information --- code/material.f90 | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/code/material.f90 b/code/material.f90 index e1a48bc1c..bd2bf3cda 100644 --- a/code/material.f90 +++ b/code/material.f90 @@ -1586,13 +1586,8 @@ subroutine material_populateGrains deallocate(phaseOfGrain) deallocate(textureOfGrain) deallocate(orientationOfGrain) + deallocate(texture_transformation) deallocate(Nelems) - !> @todo - causing segmentation fault: needs looking into - !do homog = 1,material_Nhomogenization - ! do micro = 1,material_Nmicrostructure - ! if (Nelems(homog,micro) > 0_pInt) deallocate(elemsOfHomogMicro(homog,micro)%p) - ! enddo - !enddo deallocate(elemsOfHomogMicro) end subroutine material_populateGrains