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