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 = ''