fix in integration.

This commit is contained in:
Luv Sharma 2015-01-07 14:51:06 +00:00
parent 4d33455c32
commit 9635ae9f3d
1 changed files with 1 additions and 1 deletions

View File

@ -401,7 +401,7 @@ subroutine damage_anisoBrittle_microstructure(Tstar_v, subdt, ipc, ip, el)
if (damageState(phase)%state(index_o,constituent) <= 1.0_pReal) then
damageState(phase)%state(index_o,constituent) = &
damageState(phase)%state(index_o,constituent) + &
damageState(phase)%subState0(index_o,constituent) + &
deltaState
else
if (damageState(phase)%state(index_d,constituent) == localDamage) then