223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

+ error box + now tells error number (useful for Abaqus)

This commit is contained in:
Philip Eisenlohr 2011-05-13 16:55:13 +00:00
parent 1baae024cb
commit 808a6d6ad6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
code/IO.f90
View File

@ -1374,14 +1374,15 @@ endfunction
write(6,*) write(6,*)
write(6,'(a38)') '+------------------------------------+' write(6,'(a38)') '+------------------------------------+'
write(6,'(a38)') '+ error +' write(6,'(a38)') '+ error +'
write(6,'(a17,i3,a18)') '+ ',ID,' +'
write(6,'(a38)') '+ +' write(6,'(a38)') '+ +'
write(6,'(a2,a)') '+ ',msg write(6,'(a2,a)') '+ ',msg
if (present(ext_msg)) write(6,*) '+ ',ext_msg if (present(ext_msg)) write(6,*) '+ ',ext_msg
if (present(e)) then if (present(e)) then
if (present(i) .and. present(g)) 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 else
write(6,'(a17,i6,a14)') '+ at ',e,' +' write(6,'(a18,i6,a14)') '+ at ',e,' +'
endif endif
endif endif
write(6,'(a38)') '+------------------------------------+' write(6,'(a38)') '+------------------------------------+'