223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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.

This commit is contained in:
Philip Eisenlohr 2009-04-03 10:34:17 +00:00
parent 72f012992d
commit 7ecd0355d0
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
trunk/material.f90
View File

@ -44,6 +44,7 @@ integer(pInt), dimension(:), allocatable :: homogenization_Ngrains, &
microstructure_Nconstituents, & ! number of constituents in each microstructure microstructure_Nconstituents, & ! number of constituents in each microstructure
phase_constitutionInstance, & ! instance of particular constitution of each phase phase_constitutionInstance, & ! instance of particular constitution of each phase
phase_Noutput, & ! number of '(output)' items per 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_symmetry, & ! number of symmetric orientations per texture
texture_Ngauss, & ! number of Gauss components per texture texture_Ngauss, & ! number of Gauss components per texture
texture_Nfiber ! number of Fiber 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_constitution(Nsections)); phase_constitution = ''
allocate(phase_constitutionInstance(Nsections)); phase_constitutionInstance = 0_pInt allocate(phase_constitutionInstance(Nsections)); phase_constitutionInstance = 0_pInt
allocate(phase_Noutput(Nsections)) allocate(phase_Noutput(Nsections))
allocate(phase_localConstitution(Nsections))
phase_Noutput = IO_countTagInPart(file,myPart,'(output)',Nsections) phase_Noutput = IO_countTagInPart(file,myPart,'(output)',Nsections)
phase_localConstitution = .not. IO_spotTagInPart(file,myPart,'/nonlocal/',Nsections)
rewind(file) rewind(file)
line = '' line = ''