From e8be3b871b94b9b8452baf54930a1507d80c17de Mon Sep 17 00:00:00 2001 From: Luv Sharma Date: Sat, 14 Jun 2014 11:50:46 +0000 Subject: [PATCH] commented out the logical 'nonlocal' from newState structure(might be used later) --- code/constitutive_nonlocal.f90 | 2 +- code/prec.f90 | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) 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, &