12345678910111213141516171819202122232425262728293031 |
- *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
|