00001 *DECK FDUMP 00002 SUBROUTINE FDUMP 00003 C***BEGIN PROLOGUE FDUMP 00004 C***PURPOSE Symbolic dump (should be locally written). 00005 C***LIBRARY SLATEC (XERROR) 00006 C***CATEGORY R3 00007 C***TYPE ALL (FDUMP-A) 00008 C***KEYWORDS ERROR, XERMSG 00009 C***AUTHOR Jones, R. E., (SNLA) 00010 C***DESCRIPTION 00011 C 00012 C ***Note*** Machine Dependent Routine 00013 C FDUMP is intended to be replaced by a locally written 00014 C version which produces a symbolic dump. Failing this, 00015 C it should be replaced by a version which prints the 00016 C subprogram nesting list. Note that this dump must be 00017 C printed on each of up to five files, as indicated by the 00018 C XGETUA routine. See XSETUA and XGETUA for details. 00019 C 00020 C Written by Ron Jones, with SLATEC Common Math Library Subcommittee 00021 C 00022 C***REFERENCES (NONE) 00023 C***ROUTINES CALLED (NONE) 00024 C***REVISION HISTORY (YYMMDD) 00025 C 790801 DATE WRITTEN 00026 C 861211 REVISION DATE from Version 3.2 00027 C 891214 Prologue converted to Version 4.0 format. (BAB) 00028 C***END PROLOGUE FDUMP 00029 C***FIRST EXECUTABLE STATEMENT FDUMP 00030 RETURN 00031 END
1.7.1
