From b7fc4fe6e49c6691ff9f2280fbbaf6f882e337f5 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Thu, 15 Mar 2012 09:42:33 +0000 Subject: [PATCH] fixed one last typo, now it finally compiles, sorry for this! --- code/constitutive.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/constitutive.f90 b/code/constitutive.f90 index 29695d993..9c8a6d8df 100644 --- a/code/constitutive.f90 +++ b/code/constitutive.f90 @@ -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