1      SUBROUTINE XERDMP
2C***BEGIN PROLOGUE  XERDMP
3C***DATE WRITTEN   790801   (YYMMDD)
4C***REVISION DATE  820801   (YYMMDD)
5C***CATEGORY NO.  R3C
6C***KEYWORDS  ERROR,XERROR PACKAGE
7C***AUTHOR  JONES, R. E., (SNLA)
8C***PURPOSE  Prints the error tables and then clears them.
9C***DESCRIPTION
10C     Abstract
11C        XERDMP prints the error tables, then clears them.
12C
13C     Written by Ron Jones, with SLATEC Common Math Library Subcommittee
14C     Latest revision ---  7 June 1978
15C***REFERENCES  JONES R.E., KAHANER D.K., "XERROR, THE SLATEC ERROR-
16C                 HANDLING PACKAGE", SAND82-0800, SANDIA LABORATORIES,
17C                 1982.
18C***ROUTINES CALLED  XERSAV
19C***END PROLOGUE  XERDMP
20C***FIRST EXECUTABLE STATEMENT  XERDMP
21      CALL XERSAV(' ',0,0,0,KOUNT)
22      RETURN
23      END
24