*DECK SMSORTB 
          IDENT  SMSORTB
          TITLE  SMSORTB -  INITIATE BALANCED TAPE SORT (PRETEND) 
          COMMENT  INITIATE BALANCED TAPE SORT (PRETEND)
          SPACE  4
**        SMSORTB -  INITIATE BALANCED TAPE SORT (PRETEND)
* 
*     CALLING SEQUENCE: 
*         CALL SMSORTB(<MRL>[,<BA>])
* 
*     GIVEN:  
*         <MRL> = MAXIMUM RECORD LENGTH IN CHARACTERS.
*         <BA> = DESIRED NUMBER OF WORDS OF CENTRAL MEMORY TO BE USED 
*           BY SORT.
* 
*     DOES: 
*         CALLS SMSORT(<MRL>[,<BA>])
* 
*     NOTE: 
*         THIS ROUTINE IS PROVIDED FOR FUNCTIONAL COMPATIBILITY WITH
*         SORT/MERGE 4.  THE SORT/MERGE 4 *SMSORTB* DOES A BALANCED 
*         TAPE SORT.  BUT SORT/MERGE 5 DOES NOT HAVE A BALANCED TAPE
*         SORT SO IT JUST DOES AN ORDINARY SORT.  IN OTHER WORDS, 
*         *SMSORTB* IS THE SAME AS *SMSORT* FOR SORT/MERGE 5. 
  
  
          ENTRY  SMSORTB
 SMSORTB  SUBR
          CALL   SMSORT 
          EXIT
  
  
          END 
