1      integer max_proj
2C$Id$
3      parameter (max_proj = 100)
4      logical oproject          ! True if supposed to project
5      double precision e_proj   ! Eigenvalues for projection
6      integer g_proj            ! Handle to GA with evecs
7      integer nroot_proj        ! No. of roots to project
8      integer n_proj            ! Length of vectors
9      common /cproduct/ e_proj(max_proj), g_proj, nroot_proj, n_proj,
10     $     oproject
11