From ab06fac379e2bd618d755941b29bc0fdb4c47868 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 7 Jun 2019 07:41:12 +0200 Subject: [PATCH] line too long --- src/plastic_nonlocal.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/plastic_nonlocal.f90 b/src/plastic_nonlocal.f90 index 3aec1e2e5..7bb82e853 100644 --- a/src/plastic_nonlocal.f90 +++ b/src/plastic_nonlocal.f90 @@ -16,6 +16,7 @@ module plastic_nonlocal use rotations use config use lattice + use discretization use geometry_plastic_nonlocal, only: & IPneighborhood => geometry_plastic_nonlocal_IPneighborhood, & IPvolume => geometry_plastic_nonlocal_IPvolume0, & @@ -665,8 +666,8 @@ subroutine plastic_nonlocal_init enddo - allocate(compatibility(2,maxval(totalNslip),maxval(totalNslip),theMesh%elem%nIPneighbors,discretization_nIP,discretization_nElem), & - source=0.0_pReal) + allocate(compatibility(2,maxval(totalNslip),maxval(totalNslip),theMesh%elem%nIPneighbors,& + discretization_nIP,discretization_nElem), source=0.0_pReal) ! BEGIN DEPRECATED---------------------------------------------------------------------------------- allocate(iRhoU(maxval(totalNslip),4,maxNinstances), source=0)