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