.FLAGS CAPITALIZE
.STANDARD
.TITLE <PUTSRT- PUTSRT
.PAGE
.INDENT 49
<PUTSRT
.SKIP 1
.CENTER
<PUTSRT- PUTSRT
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: <PUTSRT\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^TO ADD TO THE SORT BUFFER A NEW RECORD.  ^TO RETRIEVE THE RECORDS IN 
SORTED ORDER -- SEE <GETSRT.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM <FORTRAN--CALL ^^PUTSRT(SRTBUF,RECORD[,ERR])\\
.CENTER; OR ^^ERR=PUTSRT(SRTBUF,^^RECORD)\\
.SKIP 1
.INDENT -10
^^PARAMETERS:\\
.SK;.INDENT -9
 <SRTBUF--A BUFFER TO CONTAIN ELEMENTS TO BE SORTED.  
.SK;.INDENT -9
<RECORD-- ^THE BUFFER WHICH CONTAINS THE INFORMATION TO BE SORTED.  THIS CAN 
BE OF ANY VARIABLE TYPE SO LONG AS THE COMPARE ROUTINE (SEE <SETSRT) KNOWS WHAT TO EXPE 
WHAT TO EXPECT.
.SKIP;.INDENT -9
<ERR--^THE COMPLETION STATUS OF THE OPERATION   0 - OPERATION SUCCESSFUL
-1 - OPERATION FAILED.
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ NONE
.SKIP 1
.INDENT -10
^^EXAMPLE:\\
.NF;.NJ
^C
^C   ^READ A RECORD FROM NAMES FILE FOR SORTING
^C
10  <READ(NAMES,15)L,LSTNAM
15  <FORMAT(Q,4A1)
    <CALL <PUTSRT(SRTBUF,LSTNAM)
.SKIP 1
.INDENT -10
.STANDARD
^^AUTHOR:\\ ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10
^^WRITTEN:\\ AUGUST 77
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <SUPERMAC
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ <PUTSRT
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ SEE ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10