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

nicer formatting of error reporting

This commit is contained in:
Philip Eisenlohr 2017-04-30 21:48:06 -04:00
parent f21a4f0320
commit 131e34ae8d
1 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/IO.f90
View File

@ -14,7 +14,10 @@ module IO
private private
character(len=5), parameter, public :: & character(len=5), parameter, public :: &
IO_EOF = '#EOF#' !< end of file string IO_EOF = '#EOF#' !< end of file string
character(len=168), parameter, private :: &
IO_divider = '───────────────────'//&
'───────────────────'//&
'──────────────────'
public :: & public :: &
IO_init, & IO_init, &
IO_read, & IO_read, &
@ -1669,32 +1672,34 @@ subroutine IO_error(error_ID,el,ip,g,ext_msg)
end select end select
!$OMP CRITICAL (write2out) !$OMP CRITICAL (write2out)
write(0,'(/,a)') ' +--------------------------------------------------------+' write(0,'(/,a)') ' ┌'//IO_divider//'┐'
write(0,'(a)') ' + error +' write(0,'(a)') ' │ error │'
write(0,'(a,i3,a)') ' + ',error_ID,' +' write(0,'(a)') ' ├'//IO_divider//'┤'
write(0,'(a)') ' + +' write(0,'(a,i3,a)') ' │ ',error_ID,' │'
write(formatString,'(a,i6.6,a,i6.6,a)') '(1x,a2,a',max(1,len(trim(msg))),',',& write(0,'(a)') ' │ │'
write(formatString,'(a,i6.6,a,i6.6,a)') '(1x,a4,a',max(1,len(trim(msg))),',',&
max(1,60-len(trim(msg))-5),'x,a)' max(1,60-len(trim(msg))-5),'x,a)'
write(0,formatString) '+ ', trim(msg),'+' write(0,formatString) '│ ',trim(msg),'│'
if (present(ext_msg)) then if (present(ext_msg)) then
write(formatString,'(a,i6.6,a,i6.6,a)') '(1x,a2,a',max(1,len(trim(ext_msg))),',',& write(formatString,'(a,i6.6,a,i6.6,a)') '(1x,a4,a',max(1,len(trim(ext_msg))),',',&
max(1,60-len(trim(ext_msg))-5),'x,a)' max(1,60-len(trim(ext_msg))-5),'x,a)'
write(0,formatString) '+ ', trim(ext_msg),'+' write(0,formatString) '│ ',trim(ext_msg),'│'
endif endif
if (present(el)) then if (present(el)) then
if (present(ip)) then if (present(ip)) then
if (present(g)) then if (present(g)) then
write(0,'(a13,1x,i9,1x,a2,1x,i2,1x,a5,1x,i4,18x,a1)') ' + at element',el,'IP',ip,'grain',g,'+' write(0,'(a13,1x,i9,1x,a2,1x,i2,1x,a5,1x,i4,18x,a1)') ' │ at element',el,'IP',ip,'grain',g,'│'
else else
write(0,'(a13,1x,i9,1x,a2,1x,i2,29x,a1)') ' + at element',el,'IP',ip,'+' write(0,'(a13,1x,i9,1x,a2,1x,i2,29x,a1)') ' │ at element',el,'IP',ip,'│'
endif endif
else else
write(0,'(a13,1x,i9,35x,a1)') ' + at element',el,'+' write(0,'(a13,1x,i9,35x,a1)') ' │ at element',el,'│'
endif endif
elseif (present(ip)) then ! now having the meaning of "instance" elseif (present(ip)) then ! now having the meaning of "instance"
write(0,'(a15,1x,i9,33x,a1)') ' + for instance',ip,'+' write(0,'(a14,1x,i9,34x,a1)') ' │ at instance',ip,'│'
endif endif
write(0,'(a)') ' +--------------------------------------------------------+' write(0,'(a)') ' │ │'
write(0,'(a)') ' └'//IO_divider//'┘'
flush(0) flush(0)
call quit(9000_pInt+error_ID) call quit(9000_pInt+error_ID)
!$OMP END CRITICAL (write2out) !$OMP END CRITICAL (write2out)