C 
C     INCLUDE 'sep.inc'
C     ------------------------------------------------------------------
      INTEGER MPAR,MCHAR
      PARAMETER (MPAR=1000,MCHAR=80)
      CHARACTER*20 PAR(MPAR)
      CHARACTER*(MCHAR) VALUE(MPAR)
      INTEGER NPAR,NCHAR(MPAR)
      COMMON /SEPT/ PAR,VALUE
      COMMON /SEPC/ NPAR,NCHAR
      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     NPAR... Number of currently specified parameters.
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, January 3
C Coded by Ludek Klimes
C
C=======================================================================
C