C
C     INCLUDE 'sep.inc'
C     ------------------------------------------------------------------
      INTEGER MPAR,MCHAR,MSET
      PARAMETER (MPAR=1000,MCHAR=80,MSET=10)
      CHARACTER*20 PAR(MPAR)
      CHARACTER*(MCHAR) VALUE(MPAR)
      INTEGER NPAR(0:MSET),NCHAR(MPAR),ISET,NSET
      COMMON /SEPT/ PAR,VALUE
      COMMON /SEPC/ NPAR,NCHAR,ISET,NSET
      SAVE /SEPT/,/SEPC/
C     ------------------------------------------------------------------
C
C     MPAR... Maximum number of parameters to be specified.
C             If the parameter value is N-times redefined, the parameter
C             occupies N+1 storage locations.
C     MCHAR...Maximum length of the string describing the parameter
C             value.
C     MSET... Maximum number of parameter sets.
C     NSET... Number of currently specified parameter sets.
C     ISET... Index of the actual parameter set.
C     NPAR(I).Position of the last parameter of the set I in arrays PAR,
C             VALUE and NCHAR.  (NPAR(I)-NPAR(I-1)) is the number
C             of currently specified parameters in the set I.
C     PAR...  Names (identifiers) of currently specified parameters.
C     VALUE...Strings describing the values of currently specified
C             parameters.
C     NCHAR...Lengths of the strings describing the values of currently
C             specified parameters.
C
C Date: 2001, November 28
C Coded by Ludek Klimes
C
C=======================================================================
C