accidently commited constitutive.f90 wasn't working, fixed now

2013-04-23 07:37:14 +00:00 · 2013-04-23 07:37:14 +00:00 · 5837b25e27
parent d5e4a354e6
commit 5837b25e27
1 changed files with 1 additions and 1 deletions
--- 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)