*DECK SM5SUM
          IDENT  SM5SUM 
          TITLE  SM5SUM -  GATHER PARAMETERS ABOUT A SUM FIELD
          SPACE  4
**   CALLING SEQUENCE - 
  
*         SM5SUM(<FIRST>,<LENGTH>,<TYPE>,<REPETITION>)
* 
*    GIVEN -
*         <FIRST> = INTEGER VALUE GREATER THAN ZERO 
*         <LENGTH> = INTEGER VALUE GREATER THAN ZERO
*         <TYPE> = QUOTED LITERAL ( LEFT-JUSTIFIED, BLANK-FILLED )
*         <REPETITION> = INTEGER VALUE GREATER THAN ZERO
* 
*    DOES - 
*         SETS NPARMS = NUMBER OF PARAMETERS
*         CALLS S$5SUM(NPARMS,<FIRST>,<LENGTH>,<TYPE>,<REPETITION>
  
          ENTRY SM5SUM
SM5SUM    SUBR
          CALL S$CPARM       COUNT PARAMETERS,SET A1 = APLIST 
          CALL S$5SUM (NPARMS,<FIRST>,<LENGTH>,<TYPE>,<REPETITION>
          EXIT
  
  
          END 
