From 754e5a960bc7f06bd4094d4f80fcdab342449852 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 11 Dec 2018 07:22:48 +0100 Subject: [PATCH] polishing sometimes gives segmentation fault/division by zero. probably the usual problem of dislotwin when running without friction coefficient B --- src/plastic_dislotwin.f90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/plastic_dislotwin.f90 b/src/plastic_dislotwin.f90 index c7c03c1f4..6dbcb2b06 100644 --- a/src/plastic_dislotwin.f90 +++ b/src/plastic_dislotwin.f90 @@ -236,7 +236,6 @@ subroutine plastic_dislotwin_init integer(pInt) :: sizeState, sizeDotState integer(pInt) :: NipcMyPhase - real(pReal), allocatable, dimension(:,:) :: temp1 integer(pInt), dimension(1,200), parameter :: lattice_ntranssystem = 12 ! HACK!! integer(pInt), dimension(0), parameter :: emptyIntArray = [integer(pInt)::] real(pReal), dimension(0), parameter :: emptyRealArray = [real(pReal)::] @@ -607,7 +606,6 @@ subroutine plastic_dislotwin_init ! DEPRECATED BEGIN - allocate(temp1(prm%totalNslip,prm%totalNtrans),source =0.0_pReal) allocate(prm%forestProjectionEdge(prm%totalNslip,prm%totalNslip),source = 0.0_pReal) i = 0_pInt mySlipFamilies: do f = 1_pInt,size(prm%Nslip,1)