*DECK SMMERGE 
          IDENT  SMMERGE
          TITLE  SMMERGE   START PASSING PARAMETERS TO SMMERGE
  
  
  
  
**        SMMERGE -  START PASSING PARAMETERS TO SMMERGE
* 
*     CALLING SEQUENCE- 
*         SMMERGE(<MRL>[,<BA>]);
* 
*     GIVEN-
*         <MRL> = MAXIMUM RECORD LENGTH IN CHARACTERS.
*         <BA> = DESIRED NUMBER OF WORDS OF CENTRAL MEMORY TO BE USED 
*           BY SMMERGE. 
* 
*     DOES- 
*         SETS NPARMS = NUMBER OF PARAMETERS
*           (HOPEFULLY 1 OR 2)
*         CALLS S$SORT(N, <MRL>[,BA]) 
  
          ENTRY  SMMERGE
 SMMERGE  SUBR
          CALL   S$CPARM     COUNT PARAMETERS, SET APLIST 
          CALL   S$MERGE     PROCESS PARAMETER
          EXIT
          END 
