From 7ecd0355d0356aeee0cddb3ba14a143506bc4a86 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr <eisenlohr@egr.msu.edu> Date: Fri, 3 Apr 2009 10:34:17 +0000 Subject: [PATCH] added array "phase_localConstitution" which is keeping track of phases which emlpoy local or non-local constitutive laws. Non-local constitution is indicated by a key "/nonlocal/" in the phase definition. --- trunk/material.f90 | 3 +++ 1 file changed, 3 insertions(+) diff --git a/trunk/material.f90 b/trunk/material.f90 index 695c9eb4d..a2f85c0e7 100644 --- a/trunk/material.f90 +++ b/trunk/material.f90 @@ -44,6 +44,7 @@ integer(pInt), dimension(:), allocatable :: homogenization_Ngrains, & microstructure_Nconstituents, & ! number of constituents in each microstructure phase_constitutionInstance, & ! instance of particular constitution of each phase phase_Noutput, & ! number of '(output)' items per phase + phase_localConstitution, & ! flag phases with local constitutive law texture_symmetry, & ! number of symmetric orientations per texture texture_Ngauss, & ! number of Gauss components per texture texture_Nfiber ! number of Fiber components per texture @@ -265,8 +266,10 @@ subroutine material_parsePhase(file,myPart) allocate(phase_constitution(Nsections)); phase_constitution = '' allocate(phase_constitutionInstance(Nsections)); phase_constitutionInstance = 0_pInt allocate(phase_Noutput(Nsections)) + allocate(phase_localConstitution(Nsections)) phase_Noutput = IO_countTagInPart(file,myPart,'(output)',Nsections) + phase_localConstitution = .not. IO_spotTagInPart(file,myPart,'/nonlocal/',Nsections) rewind(file) line = ''