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

phase_thermalInstance was not being counted

This commit is contained in:
Pratheek Shanthraj 2014-10-14 07:54:25 +00:00
parent ce1f17c9cb
commit 1f795d674c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
code/material.f90
View File

@ -864,6 +864,7 @@ subroutine material_parsePhase(fileUnit,myPart)
case default case default
call IO_error(200_pInt,ext_msg=trim(IO_stringValue(line,positions,2_pInt))) call IO_error(200_pInt,ext_msg=trim(IO_stringValue(line,positions,2_pInt)))
end select end select
phase_thermalInstance(section) = count(phase_thermal(1:section) == phase_thermal(section)) ! count instances
case ('vacancy') case ('vacancy')
select case (IO_lc(IO_stringValue(line,positions,2_pInt))) select case (IO_lc(IO_stringValue(line,positions,2_pInt)))
case (LOCAL_VACANCY_CONSTANT_label) case (LOCAL_VACANCY_CONSTANT_label)