| Line | |
|---|
| 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 |
|---|
Note: See
TracBrowser
for help on using the repository browser.
