From 4d184b1ee497f62b84bcf5791f3f7eb65fd4ac8a Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Mon, 14 Oct 2013 14:35:41 +0000 Subject: [PATCH] improved comments --- code/DAMASK_marc.f90 | 2 +- code/constitutive.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/code/DAMASK_marc.f90 b/code/DAMASK_marc.f90 index de19da740..487bb046c 100644 --- a/code/DAMASK_marc.f90 +++ b/code/DAMASK_marc.f90 @@ -358,7 +358,7 @@ subroutine hypela2(d,g,e,de,s,t,dt,ngens,m,nn,kcus,matus,ndi,nshear,disp, & call mesh_build_ipCoordinates() ! update ip coordinates endif if (outdatedByNewInc) then - computationMode = ior(computationMode,CPFEM_AGERESULTS) + computationMode = ior(computationMode,CPFEM_AGERESULTS) ! calc and age results outdatedByNewInc = .false. ! reset flag endif else ! now --- COLLECT --- diff --git a/code/constitutive.f90 b/code/constitutive.f90 index dc576c276..96c883932 100644 --- a/code/constitutive.f90 +++ b/code/constitutive.f90 @@ -641,7 +641,7 @@ end subroutine constitutive_TandItsTangent !-------------------------------------------------------------------------------------------------- !> @brief returns the 2nd Piola-Kirchhoff stress tensor and its tangent with respect to -!> the elastic deformation gradient depending for hookes law +!> the elastic deformation gradient using hookes law !-------------------------------------------------------------------------------------------------- pure subroutine constitutive_hooke_TandItsTangent(T, dT_dFe, Fe, ipc, ip, el) use math, only : &