1*
2* $Id$
3*
4
5*     **** common block for cpsp projector  ****
6      integer indx_prj(2)
7      integer nsize_prj(2)
8      integer nprj_prj(2)
9      integer nbrill_prj(2)
10      integer hndl_prj(2)
11      integer list_prj(2)
12      integer npsp,tagmax
13      integer curr_nb
14      logical brill_ondisk
15      common / cpsp_projector_block / indx_prj,nsize_prj,nprj_prj,
16     >                                nbrill_prj,hndl_prj,list_prj,
17     >                                npsp,tagmax,curr_nb,brill_ondisk
18
19