From c0899b3097f5dab925e004df3a3b8b548be67dea Mon Sep 17 00:00:00 2001
From: Christoph	Kords <c.kords@mpie.de>
Date: Fri, 6 Mar 2009 16:53:31 +0000
Subject: [PATCH] minor changes to comments

---
 trunk/constitutive_j2.f90               | 17 +++++++----------
 trunk/constitutive_phenomenological.f90 |  1 +
 2 files changed, 8 insertions(+), 10 deletions(-)

diff --git a/trunk/constitutive_j2.f90 b/trunk/constitutive_j2.f90
index 1b88ccd5b..cd4ef02a5 100644
--- a/trunk/constitutive_j2.f90
+++ b/trunk/constitutive_j2.f90
@@ -48,12 +48,13 @@ MODULE constitutive_j2
 
 CONTAINS
 !****************************************
-!* - constitutive_init
-!* - constitutive_homogenizedC
-!* - constitutive_microstructure
-!* - constitutive_LpAndItsTangent
-!* - consistutive_dotState
-!* - consistutive_postResults
+!* - constitutive_j2_init
+!* - constitutive_j2_stateInit
+!* - constitutive_j2_homogenizedC
+!* - constitutive_j2_microstructure
+!* - constitutive_j2_LpAndItsTangent
+!* - consistutive_j2_dotState
+!* - consistutive_j2_postResults
 !****************************************
 
 
@@ -311,10 +312,6 @@ subroutine constitutive_j2_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v,Temperature,sta
 		dLp_dTstar = math_Plain3333to99(factor * dLp_dTstar3333)
  end if
  
-! if ((ipc==1) .and. (ip==1) .and. (el==1)) then
-!	  write(6,*) 'Lp: ', Lp
-!	  write(6,*) 'dLp_dTstar: ', dLp_dTstar
-! end if
  return
 
 end subroutine
diff --git a/trunk/constitutive_phenomenological.f90 b/trunk/constitutive_phenomenological.f90
index 30efd42fb..ec97f5f0e 100644
--- a/trunk/constitutive_phenomenological.f90
+++ b/trunk/constitutive_phenomenological.f90
@@ -61,6 +61,7 @@ MODULE constitutive_phenomenological
 CONTAINS
 !****************************************
 !* - constitutive_init
+!* - constitutive_stateInit
 !* - constitutive_homogenizedC
 !* - constitutive_microstructure
 !* - constitutive_LpAndItsTangent