*DECK     XSST    - SHELL SORT TABLE. 
          IDENT  XSST 
          B1=1
          LIST   F,X
          TITLE  XSST - SHELL SORT TABLE. 
          COMMENT  SHELL SORT TABLE.
 XSST     SPACE  4,8
**        XSST  -  SHELL SORT TABLE.
* 
*         R. H. GOODELL.     76/12/10.
* 
*         SYMPL-CALLABLE ENTRY POINT FOR INTERFACING TO THE 
*         STANDARD COMPASS-CALLABLE ROUTINE, TO SORT A TABLE
*         OF ONE-WORD ENTRIES USING THE SHELL SORTING METHOD. 
* 
*         PROC XSST (T, N). 
* 
*         ARRAY T (1).       ARRAY TO BE SORTED IN PLACE. 
*         ITEM N I.          NUMBER OF WORDS IN ARRAY.
  
  
 XSST     SUBR   =           ENTRY/EXIT 
          SB1    1           (B1) = 1 
          SB7    X1          (B7) = TABLE FWA 
          SA1    A1+B1       (X1) = LOC OF N
          SA1    X1          (X1) = VALUE OF N
          RJ     =XSST=      SHELL SORT TABLE 
          JP     EXIT.       RETURN 
 SST      SPACE  4,8
**        SST  -  COMPASS-CALLABLE ROUTINE. 
  
  
*CALL     COMCSST            SHELL SORT TABLE.
  
  
          ENTRY  SST= 
  
  
          END 
