fixed one last typo, now it finally compiles, sorry for this!

This commit is contained in:
Franz Roters 2012-03-15 09:42:33 +00:00
parent 4d90d90886
commit b7fc4fe6e4
1 changed files with 1 additions and 1 deletions

View File

@ -846,7 +846,7 @@ subroutine constitutive_TandItsTangent(T, dT_dFe, Fe, ipc, ip, el)
select case (phase_elasticity(material_phase(ipc,ip,el)))
case (constitutive_hooke_label)
call constitutive_hooke_TstarAndItsTangent(T, dT_dFe, Fe, ipc, ip, el)
call constitutive_hooke_TandItsTangent(T, dT_dFe, Fe, ipc, ip, el)
end select