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