From 0ef4ec27b39d3b9ef1fd24eaac0986295ce2131b Mon Sep 17 00:00:00 2001
From: Franz	Roters <f.roters@mpie.de>
Date: Thu, 13 Aug 2009 12:56:07 +0000
Subject: [PATCH] there was a lonesome endif that needed a comment

---
 code/homogenization_RGC.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code/homogenization_RGC.f90 b/code/homogenization_RGC.f90
index 9de3bc481..475842456 100644
--- a/code/homogenization_RGC.f90
+++ b/code/homogenization_RGC.f90
@@ -334,7 +334,7 @@ function homogenization_RGC_updateState(&
 !               '@ grain',stresLoc(3),'in component',stresLoc(1),stresLoc(2)
 !    write(1978,'(x,a15,x,e10.4,x,a7,i3,x,a12,i2)')'Max residual: ',residMax, &
 !               '@ iface',residLoc(1),'in direction',residLoc(2)
- endif
+! endif
  homogenization_RGC_updateState = .false.
 !* If convergence reached => done and happy
  if (residMax < relTol_RGC*stresMax .or. residMax < absTol_RGC) then