subroutine DumpError
! Uses
use dc_types, only: STRING
use dc_string, only: put_line
use dc_error, only: GetErrorMessage
use sysdep, only: AbortProgram
! Calls
call AbortProgram
call GetErrorMessage
! Variables
character (len=STRING) :: message
end subroutine DumpError
character (len=STRING) :: message