
C     INCLUDE 'Zvcts.inc' used in TRAVEC

      PARAMETER (MAXVEC = 960)
      PARAMETER (MAXASV = 3600)
      PARAMETER (MAXIQ = 360)
      COMMON /VCTSET/ NSMAX, NASV, MINNVS, NVV,  IPOASV(48), IPVECT(48),
     *               ASVECT(6, MAXASV), NA1A2(2,MAXASV), INDXHV(MAXASV),
     *               INDVEC(MAXVEC), VECT(6, MAXVEC),
     *               IQTRVS(MAXIQ)

C end of 'Zvcts.inc' 
 
