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

added homogneization_typeInstance and homogenization_Noutput for future use

This commit is contained in:
Philip Eisenlohr 2009-03-31 09:24:12 +00:00
parent d96c0a6495
commit e5af3874b2
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
trunk/material.f90
View File

@ -39,6 +39,8 @@ character(len=64), dimension(:), allocatable :: homogenization_name, &
texture_name ! name of each texture texture_name ! name of each texture
character(len=256),dimension(:), allocatable :: texture_ODFfile ! name of each ODF file character(len=256),dimension(:), allocatable :: texture_ODFfile ! name of each ODF file
integer(pInt), dimension(:), allocatable :: homogenization_Ngrains, & ! number of grains in each homogenization integer(pInt), dimension(:), allocatable :: homogenization_Ngrains, & ! number of grains in each homogenization
homogenization_typeInstance, & ! instance of particular type of each homogenization
homogenization_Noutput, & ! number of '(output)' items per homogenization
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
@ -120,7 +122,7 @@ subroutine material_parseHomogenization(file,myPart)
integer(pInt), intent(in) :: file integer(pInt), intent(in) :: file
integer(pInt), parameter :: maxNchunks = 2 integer(pInt), parameter :: maxNchunks = 2
integer(pInt), dimension(1+2*maxNchunks) :: positions integer(pInt), dimension(1+2*maxNchunks) :: positions
integer(pInt) Nsections, section integer(pInt) Nsections, section, s
character(len=64) tag character(len=64) tag
character(len=1024) line character(len=1024) line
@ -128,8 +130,11 @@ subroutine material_parseHomogenization(file,myPart)
material_Nhomogenization = Nsections material_Nhomogenization = Nsections
allocate(homogenization_name(Nsections)); homogenization_name = '' allocate(homogenization_name(Nsections)); homogenization_name = ''
allocate(homogenization_type(Nsections)); homogenization_type = '' allocate(homogenization_type(Nsections)); homogenization_type = ''
allocate(homogenization_typeInstance(Nsections)); homogenization_typeInstance = 0_pInt
allocate(homogenization_Ngrains(Nsections)); homogenization_Ngrains = 0_pInt allocate(homogenization_Ngrains(Nsections)); homogenization_Ngrains = 0_pInt
homogenization_Noutput = IO_countTagInPart(file,myPart,'(output)',Nsections)
rewind(file) rewind(file)
line = '' line = ''
section = 0 section = 0
@ -152,6 +157,10 @@ subroutine material_parseHomogenization(file,myPart)
select case(tag) select case(tag)
case ('type') case ('type')
homogenization_type(section) = IO_stringValue(line,positions,2) homogenization_type(section) = IO_stringValue(line,positions,2)
do s = 1,section
if (homogenization_type(s) == homogenization_type(section)) &
homogenization_typeInstance(section) = homogenization_typeInstance(section) + 1 ! count instances
enddo
case ('ngrains') case ('ngrains')
homogenization_Ngrains(section) = IO_intValue(line,positions,2) homogenization_Ngrains(section) = IO_intValue(line,positions,2)
end select end select