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