.NONUMBER
.TITLE ^^DUMPBF DUMP ROOT BLOCK PARAMETERS
.PAGE
.INDENT 50
^^DUMPBF
.SKIP 1
.CENTER
^^DUMPBF DUMP ROOT BLOCK PARAMETERS
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: ^^DUMPBF
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^USED AS A DEBUGGING AID IN CONJUNCTION WITH THE
^^CETUS DATABASE\\ ROUTINES.  ^^DUMPBF\\ WILL PRINT
ON THE ^^LUN\\ SPECIFIED IN THE COMMON BLOCK NAMED ^^CONSOL\\.  ^THE DEFAULT
DEFINED BY ^^BATDEF\\ IS 5.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM ^^FORTRAN\\ -- ^^CALL DUMPBF(ROOT)\\
.SKIP 1
.INDENT -10
^^PARAMETERS:\\
.SKIP;.INDENT -9
^^ROOT\\-----^THE ROOT BLOCK ARRAY (SEE ^^OPENBF\\
AND ^^BLDHDR)\\
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ NONE
.SKIP 1
.INDENT -10
^^EXAMPLE:\\ OPEN
.SKIP 1
.INDENT -10
^^FEATURES:\\ NONE
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^JACK ^MARTINELLI OF ^^CETUS\\ ^CORP.
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^MARCH 1978
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <FORTRAN
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ ^^DUMPBF
.SKIP 1
.INDENT -10
^^LIBRARY:\\ ^^DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ LONG AGO
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^JACK ^MARTINELLI OR ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10