INTEGER JPNMAXPRO
      INTEGER JPGRADLEN
      PARAMETER(JPNMAXPRO=2501)
      PARAMETER(JPGRADLEN= JPRALEV*JPNMAXPRO)
C
      INTEGER  NINDX(JPGRADLEN),ND
      INTEGER  NBEG,NEND,MBAND
*
      COMMON/COMVCOR/NINDX,ND,NBEG,NEND, MBAND