From 808a6d6ad6e0ffb429664b42b2fc882fbead678e Mon Sep 17 00:00:00 2001
From: Philip	Eisenlohr <eisenlohr@egr.msu.edu>
Date: Fri, 13 May 2011 16:55:13 +0000
Subject: [PATCH] + error box + now tells error number (useful for Abaqus)

---
 code/IO.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/code/IO.f90 b/code/IO.f90
index 1f1f1923f..ca31ce101 100644
--- a/code/IO.f90
+++ b/code/IO.f90
@@ -1374,14 +1374,15 @@ endfunction
  write(6,*)
  write(6,'(a38)') '+------------------------------------+'
  write(6,'(a38)') '+               error                +'
+ write(6,'(a17,i3,a18)') '+               ',ID,'                 +'
  write(6,'(a38)') '+                                    +'
  write(6,'(a2,a)')       '+ ',msg
  if (present(ext_msg))  write(6,*) '+ ',ext_msg
  if (present(e)) then
    if (present(i) .and. present(g)) then
-     write(6,'(a12,x,i6,x,a2,x,i2,x,a5,x,i4,a2)') '+ at element',e,'IP',i,'grain',g,' +'
+     write(6,'(a13,i6,a4,i2,a7,i4,a2)') '+ at element ',e,' IP ',i,' grain ',g,' +'
    else
-     write(6,'(a17,i6,a14)') '+              at ',e,'             +'
+     write(6,'(a18,i6,a14)') '+              at ',e,'             +'
    endif
  endif
  write(6,'(a38)') '+------------------------------------+'