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