From 5837b25e27fff24e2f7d0a18293ed8f4f2a19426 Mon Sep 17 00:00:00 2001
From: Martin	Diehl <m.diehl@mpie.de>
Date: Tue, 23 Apr 2013 07:37:14 +0000
Subject: [PATCH] accidently commited constitutive.f90 wasn't working, fixed
 now

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

diff --git a/code/constitutive.f90 b/code/constitutive.f90
index 0cc9ce5f5..8f4d97735 100644
--- a/code/constitutive.f90
+++ b/code/constitutive.f90
@@ -187,7 +187,7 @@ subroutine constitutive_init
      case default
        knownPlasticity = .false.
    end select   
-   write(fileunit,'(\,a,\)') '['//trim(phase_name(p))//']'
+   write(fileunit,'(/,a,/)') '['//trim(phase_name(p))//']'
    if (knownPlasticity) then
      write(fileunit,'(a)') '(plasticity)'//char(9)//trim(phase_plasticity(p))
      do e = 1_pInt,phase_Noutput(p)