*DECK SMSEQ 
          IDENT  SMSEQ
          TITLE  SMSEQ -  GATHER PARAMETERS ABOUT A COLLATING SEQUENCE
          COMMENT  GATHER PARAMETERS ABOUT A COLLATING SEQUENCE 
          SPACE  4
**        SMSEQ -  GATHER PARAMETERS ABOUT A COLLATING SEQUENCE 
* 
*     CALLING SEQUENCE- 
*         CALL SMSEQ(<COLSEQ>, <ARRY>)
* 
*     GIVEN-
*         A1 = ADDRESS OF ACTUAL PARAMETER LIST.
* 
*     DOES- 
*         SETS NPARMS = NUMBER OF PARAMETERS. 
*         CALLS S$SEQ(NPARMS, <COLSEQ>, <ARRY>) 
  
  
          ENTRY  SMSEQ
 SMSEQ    SUBR
          CALL   S$CPARM     COUNT PARAMETERS, SET A1 = APLIST
          CALL   S$SEQ (NPARMS, <COLSEQ>, <ARRY>) 
          EXIT
  
  
          END 
