From ea634d978adf0377ec514fe5cf8229642e25f93f Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Thu, 15 Mar 2012 09:47:32 +0000 Subject: [PATCH] adapted comments to recent change --- code/constitutive.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/code/constitutive.f90 b/code/constitutive.f90 index 9c8a6d8df..4d4e4dddf 100644 --- a/code/constitutive.f90 +++ b/code/constitutive.f90 @@ -826,8 +826,8 @@ subroutine constitutive_TandItsTangent(T, dT_dFe, Fe, ipc, ip, el) !* This subroutine returns the 2nd Piola-Kirchhoff stress tensor and * !* its tangent with respect to the elastic deformation gradient * !* OUTPUT: * -!* - Tstar : 2nd Piola-Kirchhoff stress tensor * -!* - dTstar_dFe : derivative of 2nd Piola-Kirchhoff stress tensor * +!* - T : 2nd Piola-Kirchhoff stress tensor * +!* - dT_dFe : derivative of 2nd Piola-Kirchhoff stress tensor * !* with respect to the elastic deformation gradient * !* INPUT: * !* - Fe : elastic deformation gradient * @@ -858,8 +858,8 @@ subroutine constitutive_hooke_TandItsTangent(T, dT_dFe, Fe, g, i, e) !* This subroutine returns the 2nd Piola-Kirchhoff stress tensor and * !* its tangent with respect to the elastic deformation gradient * !* OUTPUT: * -!* - Tstar : 2nd Piola-Kirchhoff stress tensor * -!* - dTstar_dFe : derivative of 2nd Piola-Kirchhoff stress tensor * +!* - T : 2nd Piola-Kirchhoff stress tensor * +!* - dT_dFe : derivative of 2nd Piola-Kirchhoff stress tensor * !* with respect to the elastic deformation gradient * !* INPUT: * !* - Fe : elastic deformation gradient *