!
!-------------------------------------------------------------
! Compute integrals, starting from Cholesky Vectors
!
! Reads Info
! Read Cholesky Vectors generated by motra
! Computes molecular integrals
!-------------------------------------------------------------
!
      module chol_X
      integer,allocatable :: itsym(:),il(:,:)
      integer nsym,norb
      integer(8) L_Chol,L_Chol0
      integer,parameter :: nblock=2048
      integer isym(8),isymt(8)
      integer fermi(8)
      integer(8),allocatable :: iadr_chol(:)
      integer,allocatable :: iord(:),iord1(:)
      real(8),allocatable :: one(:,:)
      integer numcho(8),mpq(8,8)
      real(8),allocatable :: chol_vec(:),ajk(:,:),ajk1(:,:)
      real(8),allocatable :: aijjj(:,:)
      real(8) potnuc
      character(80) prefix
      logical(1),allocatable :: InterInt(:,:)
      logical(1),allocatable :: InterInt2(:,:)
      integer,dimension(8) :: frozen,delete
      integer,dimension(8) :: frozen_chol,delete_chol,fermi_chol
      logical(1),allocatable :: yfrdel(:),yfr(:)
      logical ycl
      integer(8) :: size_chol_vec

      logical semi_active
      integer inact(8),act(8),nactel,nb_ijcl


!      integer(2),dimension(4096) :: iint,jnt,knt,lnt
      integer(2) :: iint(4096),jnt(4096),knt(4096),lnt(4096)
      real(8),dimension(3,4096) :: aaint

      character(4) output_files

      end module chol_X
