*DECK SMSORTP 
          IDENT  SMSORTP
          TITLE  SMSORTP -  INITIATE POLYPHASE TAPE SORT (PRETEND)
          COMMENT  INITIATE POLYPHASE TAPE SORT (PRETEND) 
          SPACE  4
**        SMSORTP -  INITIATE POLYPHASE TAPE SORT (PRETEND) 
* 
*     CALLING SEQUENCE: 
*         CALL SMSORTP(<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 *SMSORTP* DOES A POLYPHASE
*         TAPE SORT.  BUT SORT/MERGE 5 DOES NOT HAVE A BALANCED TAPE
*         SORT SO IT JUST DOES AN ORDINARY SORT.  IN OTHER WORDS, 
*         *SMSORTP* IS THE SAME AS *SMSORT* FOR SORT/MERGE 5. 
  
  
          ENTRY  SMSORTP
 SMSORTP  SUBR
          CALL   SMSORT 
          EXIT
  
  
          END 
