*DECK FDUMP
        SUBROUTINE FDUMP
  C***BEGIN PROLOGUE  FDUMP
  C***PURPOSE  Symbolic dump (should be locally written).
  C***LIBRARY   SLATEC (XERROR)
  C***CATEGORY  R3
  C***TYPE      ALL (FDUMP-A)
  C***KEYWORDS  ERROR, XERMSG
  C***AUTHOR  Jones, R. E., (SNLA)
  C***DESCRIPTION
  C
  C        ***Note*** Machine Dependent Routine
  C        FDUMP is intended to be replaced by a locally written
  C        version which produces a symbolic dump.  Failing this,
  C        it should be replaced by a version which prints the
  C        subprogram nesting list.  Note that this dump must be
  C        printed on each of up to five files, as indicated by the
  C        XGETUA routine.  See XSETUA and XGETUA for details.
  C
  C     Written by Ron Jones, with SLATEC Common Math Library Subcommittee
  C
  C***REFERENCES  (NONE)
  C***ROUTINES CALLED  (NONE)
  C***REVISION HISTORY  (YYMMDD)
  C   790801  DATE WRITTEN
  C   861211  REVISION DATE from Version 3.2
  C   891214  Prologue converted to Version 4.0 format.  (BAB)
  C***END PROLOGUE  FDUMP
  C***FIRST EXECUTABLE STATEMENT  FDUMP
        RETURN
        END