fdump.f 1.0 KB

12345678910111213141516171819202122232425262728293031
  1. *DECK FDUMP
  2. SUBROUTINE FDUMP
  3. C***BEGIN PROLOGUE FDUMP
  4. C***PURPOSE Symbolic dump (should be locally written).
  5. C***LIBRARY SLATEC (XERROR)
  6. C***CATEGORY R3
  7. C***TYPE ALL (FDUMP-A)
  8. C***KEYWORDS ERROR, XERMSG
  9. C***AUTHOR Jones, R. E., (SNLA)
  10. C***DESCRIPTION
  11. C
  12. C ***Note*** Machine Dependent Routine
  13. C FDUMP is intended to be replaced by a locally written
  14. C version which produces a symbolic dump. Failing this,
  15. C it should be replaced by a version which prints the
  16. C subprogram nesting list. Note that this dump must be
  17. C printed on each of up to five files, as indicated by the
  18. C XGETUA routine. See XSETUA and XGETUA for details.
  19. C
  20. C Written by Ron Jones, with SLATEC Common Math Library Subcommittee
  21. C
  22. C***REFERENCES (NONE)
  23. C***ROUTINES CALLED (NONE)
  24. C***REVISION HISTORY (YYMMDD)
  25. C 790801 DATE WRITTEN
  26. C 861211 REVISION DATE from Version 3.2
  27. C 891214 Prologue converted to Version 4.0 format. (BAB)
  28. C***END PROLOGUE FDUMP
  29. C***FIRST EXECUTABLE STATEMENT FDUMP
  30. RETURN
  31. END