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