.STANDARD;.FL CAPITALIZE
.TITLE DSKSRT - ^^FORCING A DISK IMAGE OF SORT BUFFER/SCRATCH-FILE

.PAGE
.INDENT 50
DSKSRT
.SKIP 1
.CENTER
DSKSRT - ^^FORCING A DISK IMAGE OF SORT BUFFER/SCRATCH-FILE
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: DSKSRT\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^THE DISK SORT ROUTINE WILL TAKE ALL OF THE PREVIOUSLY SORTED RECORDS
(SEE <SETSRT,PUTSRT) AND PUT THEM INTO A FILE.  ^THIS FILE CAN BE READ
FROM THE <LUN RETURNED BY <DSKSRT.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM <FORTRAN
.SKIP
.CENTER
^^ CALL <DSKSRT(SRTBUF,LUN,ERR)
.CENTER
 OR
.CENTER
 <ERR=DSKSRT(SRTBUF,LUN,ERR)\\
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ 
.SKIP;.INDENT -9
<SRTBUF---A SORT BUFFER AND SCRATCH AREA FOR INTERNAL PARAMETERS USED
BY THE SORT PACKAGE.  
.SKIP;.INDENT -9
<LUN------^THE LOGICAL UNIT NUMBER USED FOR READING
THE SORTED FILE.  ^THIS FILE IS AN UNFORMATED BINARY FILE.  
.SKIP;.INDENT -9
<ERR------A ZERO
IF SUCCESSFUL -1 IF FAILURE.  
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ <SMERGE
.SKIP;.INDENT -10
^^FEATURES:\\ NONE
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^AUGUST 1977
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <MACRO-11
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ <DSKSRT
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ ^MAY 1978
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10