fix in analytically integrated expression.

This commit is contained in:
Luv Sharma 2015-01-15 09:22:24 +00:00
parent 3f55518c31
commit 125276283b
1 changed files with 1 additions and 1 deletions

View File

@ -299,7 +299,7 @@ subroutine damage_isoDuctile_microstructure(subdt,ipc, ip, el)
damageState(phase)%state(1,constituent) = &
damageState(phase)%state(2,constituent) + &
(damageState(phase)%subState0(1,constituent) - damageState(phase)%state(2,constituent))* &
exp(-subdt/(damageState(phase)%state(2,constituent)*lattice_DamageMobility(phase)))
exp(-subdt/lattice_DamageMobility(phase))
end subroutine damage_isoDuctile_microstructure