1*
2* $Id$
3*
4c
5c...  cct_table_uhf
6c
7      integer maxorb
8      parameter (maxorb=4000)
9      common/cct_table/nirr,mult(8,8),muls(2,2),occ(2),virt(2),orb,
10     1                 nocc(8,2),nvirt(8,2),
11     1                 iro(maxorb*2),iocc(maxorb*2),ispin(maxorb*2),
12     1                 socc(9,2),svirt(9,2),
13     2                 lenij(8,2,2),lenbk(8,2,2),lenab(8,2,2)
14      equivalence (socc,s_occ_virt),(iro,isym)
15      equivalence (nocc,n_occ_virt)
16      equivalence (lenxy,lenij)
17      integer nirr,mult,muls,occ,virt,orb
18      integer nocc,nvirt,n_occ_virt(8,2,2)
19      integer iro,iocc,ispin,isym(maxorb*2,3)
20      integer socc,svirt,s_occ_virt(9,2,2)
21      integer lenij,lenbk,lenab,lenxy(8,2,2,2:4)
22      common/cb_cct_factor/fac(maxorb*2)
23      double precision fac
24c
25