.STANDARD;.FLAGS CAPITALIZE
.NONUMBER
.TITLE <SMERGE- ^^SORT-MERGE PACKAGE
.PAGE
.INDENT 48
<SMERGE
.SKIP 1
.CENTER
<SMERGE- ^^SORT-MERGE PACKAGE
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: <SMERGE\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ <SMERGE WILL TAKE AN UN-SORTED ARRAY - SORT IT AND WRITE IT OUT TO A FILE.
^IF THIS FILE ALREADY COINTAINS PREVIOUSLY SORTED RECORDS THEN THIS FILE
WILL BE READ FROM AND MERGED WITH THE IN CORE ARRAY INTO A SECOND FILE.
.PARAGRAPH
 ^SMERGE CAN ONLY SORT DATA WITH ELEMENTS OF 132 BYTES OR SMALLER.
.PARAGRAPH
<SMERGE USES SYMBOLIC LUN'S SCRAT1 AND SCRAT2 FOR ALL SORTING.
^IF THIS IS NOT ACCEPTABLE, YOU CAN DEFINE THE FOLLOWING COMMONS IN YOUR MAIN
PROGRAM AND SET THEM TO OTHER VALUES.
NOTE THAT SMERGE ALWAYS KEEPS ONE OF THE LUNS OPEN, AND JUGGLES THE VALUES
IN COMMON SO THAT THE UNUSED ONE IS ALWAYS IN SCRAT2.  ^YOU MAY USE THIS LUN 
BETWEEN <SMERGE CALLS ONLY IF YOU USE IT BY TI'S SYMBOLIC NAME AND MAKE SURE IT IS 
CLOSED BEFORE THE NEXT CALL TO SMERGE.
.NOTE
^IF YOU GET AN ILLEGAL LUN ERROR IN <SMERGE, IT MAY BE NECESSARY TO 
<CALL <BATDEF() IN YOUR CALLING PROGRAM.  <BATDEF IS A '<BLOCK <DATA 
<SUPROGRAM' OF SORTS AND THE CALL TO IT IS ONLY TO ASSURE THAT IT IS 
TASKBUILT INTO YOUR PROGRAM SO THAT IT CAN DEFINE THE VALUES
OF YOUR <LUN'S.  ^IF YOU CALL A <DATABASE ROUTINE, FOR EXAMPLE, <BATDEF WILL
AUTOMATICLY BE INCLUDED WITHOUT SPECIAL CALLS.
.ENDNOTE
.SKIP 1
.INDENT -10
^^CALLABLE:\\ ^FROM <FORTRAN - ^^CALL SMERGE(NFILES,INP,NI,ISIZE,ICMP)
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ 
.SKIP 1
.INDENT -9
^^NFILES\\---^YOU MUST SET TIS VARIABLE TO ZERO THE FIRST TIME 
THAT YOU CALL <SMERGE SO IT CAN SET UP FOR SUCCESSIVE MERGES.
^THE <LUN OF THE LAST WRITTEN OUTPUT FILE IS ALWAYS RETURNED IN THIS PARAMETER.
^THE FILE IS RETURNED REWOUND AND OPEN READY TO BE READ.  ^TO KEEP YOUR DISK CLEAN,
AND TO FREE UP THE <LUN FOR THE NEXT SMERGE, YOU SHOULD CALL <DELETE WITH THIS 
<LUN AS SOON AS YOU ARE DONE READING THE SORTED FILE.
.SKIP
.INDENT -9
^^INP\\------^THE NAME OF THE ARRAY THAT CONTAINS THE NEXT CORE RESIDENT BLOCK OF ELEMENTS TO BE SOR
TED
.SKIP
.INDENT -9
^^NI\\------^THE SIZE OF A SINGLE ELEMENT IN THE INP ARRAY IN WORDS!
.SKIP 1
.INDENT -9
^^ISIZE\\----^TH NUMBER OF ELEMENTS IN THE INP ARRAY.  ^THESE TWO
PARAMETERS ARE EFFECTIVELY THE DIMENSIONS OF THE INP ARRAY, THUSLY: INP(NI,ISIZE).
.SKIP 1
.INDENT -9
^^KEY\\------^THE NAME OF AN INTEGER ARRAY FOR <SMERGE TO STORE THE SORT KEYS IN.
^ON RETURNING FROM <SMERGE, THIS ARRAY WILL CONTAIN NO INFORMATION USEFUL TO YOU.
^MAKE SURE THAT KEY IS DIMENSIONED TO AT LEAST <ISIZE WORDS.
.SKIP 1
.INDENT -9
^^ICMP\\-----^THE NAME OF AN INTEGER FUNCTION (DECLARED EXTERNAL IN YOUR
CALLING PROGRAM) THAT DOES THE COMPARING (SEE <KSORT).
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ ^YOUR COMPARE ROUTINE AND <KSORT
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^LONG AGO
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <FORTRAN
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ <SMERGE
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ ^AUGUST 78
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^MIKE ^HIGGINS OR ^LINDA ^MUNDY
.SKIP 1
.INDENT -10