diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90 index 730ea9a54..40551ca21 100644 --- a/code/constitutive_nonlocal.f90 +++ b/code/constitutive_nonlocal.f90 @@ -910,7 +910,7 @@ allocate(nonSchmidProjection(3,3,4,maxTotalNslip,maxNinstances), #ifdef NEWSTATE ! Determine size of state array - plasticState(phase)%nonlocal = .true. +! plasticState(phase)%nonlocal = .true. sizeDotState = int(size(BASICSTATES),pInt) * ns sizeDependentState = int(size(DEPENDENTSTATES),pInt) * ns sizeState = sizeDotState & diff --git a/code/prec.f90 b/code/prec.f90 index dca64e2da..5866f4642 100644 --- a/code/prec.f90 +++ b/code/prec.f90 @@ -64,6 +64,7 @@ module prec !http://stackoverflow.com/questions/3948210/can-i-have-a-pointer-to-an-item-in-an-allocatable-array type, public :: tState integer(pInt) :: sizeState,sizeDotState +! logical :: nonlocal real(pReal), pointer, dimension(:) :: atolState real(pReal), pointer, dimension(:,:) :: state, & ! material points, state size dotState, &