From 77dc16d15f40c419a260880d7a6f14b49c6877da Mon Sep 17 00:00:00 2001
From: Christoph	Kords <c.kords@mpie.de>
Date: Thu, 29 Apr 2010 07:34:20 +0000
Subject: [PATCH] print aged state of 1 1 1, which always exists, to avoid
 segmentation fault

---
 code/CPFEM.f90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/code/CPFEM.f90 b/code/CPFEM.f90
index af05ab679..02e46a5a0 100644
--- a/code/CPFEM.f90
+++ b/code/CPFEM.f90
@@ -241,8 +241,7 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
           constitutive_state0(i,j,k)%p = constitutive_state(i,j,k)%p      ! microstructure of crystallites
         if (debugger) then
           !$OMP CRITICAL (write2out)
-            write(6,'(a,3(x,i4),/,4(3(e20.8,x),/))') 'aged state at', debug_g, debug_i, debug_e, &
-                                                                  constitutive_state(debug_g,debug_i,debug_e)%p
+            write(6,'(a,/,4(3(e20.8,x),/))') 'aged state at 1 1 1', constitutive_state(1,1,1)%p
           !$OMP END CRITICAL (write2out)
         endif
         do k = 1,mesh_NcpElems