call fdump(n,do)
Unless preventive action is taken by the programmer, a symbolic dump will automatically be produced by FDUMP when a batch Fortran program terminates abnormally. It can also be called from any Fortran program, in TSS or batch, as many times as you wish.
The dump is written on logical unit "do" and will include the "n" subprograms most recently entered into the nesting list. If "n" is not supplied, it is taken to be a very large integer, so that the nesting list will always be traced back to the main program.
When FDUMP is called, it prints a heading describing how it was entered. Next comes a symbolic dump (by name and according to type) of the variables of every subroutine that was in the nesting list at the time FDUMP was entered.
When FDUMP is entered by a call, the heading reads
FDUMP CALLED FROM <name> IN LINE NUMBER <line-no.>
When FDUMP is entered after an abnormal termination, the heading reads
FDUMP CALLED FROM WRAPUP
FDUMP starts with the subprogram that called it or the subprogram in control at the time of abnormal termination. For each routine in the nesting list that it dumps, the following subheading is printed.
SUBPROGRAM <name> CALLED FROM <name2> IN LINE NUMBER <line-no>
The second line is omitted when the main level is reached. The subheading is followed by a list of of the non-subscripted variables, followed by the arrays. Arrays are printed by column, with "..." used to indicate successive lines of output that would be identical. In addition, "..." is used to indicate successive columns that would be identical.
The format used for each type of variable is as follows.
integer I13 real 1PE15.7 logical O13 complex 1P2E15.7 double precision 1PD26.18 character An
Copyright © 1996, Thinkage Ltd.