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

fixed bug in phase instance initialisation

This commit is contained in:
Pratheek Shanthraj 2014-07-04 08:26:25 +00:00
parent a2cd7815e9
commit 546984b075
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
code/material.f90
View File

@ -659,7 +659,7 @@ subroutine material_parsePhase(fileUnit,myPart)
case default
call IO_error(200_pInt,ext_msg=trim(IO_stringValue(line,positions,2_pInt)))
end select
phase_elasticityInstance(section) = count(phase_elasticity == phase_elasticity(section)) ! count instances
phase_elasticityInstance(section) = count(phase_elasticity(1:section) == phase_elasticity(section)) ! count instances
case ('plasticity')
select case (IO_lc(IO_stringValue(line,positions,2_pInt)))
case (PLASTICITY_NONE_label)
@ -677,7 +677,7 @@ subroutine material_parsePhase(fileUnit,myPart)
case default
call IO_error(201_pInt,ext_msg=trim(IO_stringValue(line,positions,2_pInt)))
end select
phase_plasticityInstance(section) = count(phase_plasticity == phase_plasticity(section)) ! count instances
phase_plasticityInstance(section) = count(phase_plasticity(1:section) == phase_plasticity(section)) ! count instances
case ('damage')
select case (IO_lc(IO_stringValue(line,positions,2_pInt)))
case (DAMAGE_NONE_label)
@ -689,7 +689,7 @@ subroutine material_parsePhase(fileUnit,myPart)
case default
call IO_error(200_pInt,ext_msg=trim(IO_stringValue(line,positions,2_pInt)))
end select
phase_damageInstance(section) = count(phase_damage == phase_damage(section)) ! count instances
phase_damageInstance(section) = count(phase_damage(1:section) == phase_damage(section)) ! count instances
case ('thermal')
select case (IO_lc(IO_stringValue(line,positions,2_pInt)))
case (THERMAL_NONE_label)
@ -703,7 +703,7 @@ subroutine material_parsePhase(fileUnit,myPart)
case default
call IO_error(200_pInt,ext_msg=trim(IO_stringValue(line,positions,2_pInt)))
end select
phase_thermalInstance(section) = count(phase_thermal == phase_thermal(section)) ! count instances
phase_thermalInstance(section) = count(phase_thermal(1:section) == phase_thermal(section)) ! count instances
end select
endif
enddo