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