Added DDCI

plugins/CAS_SD_ZMQ/EZFIO.cfg

@@ -1,10 +1,15 @@
 [energy]
 type: double precision
-doc: "Calculated CAS-SD energy"
+doc: Calculated CAS-SD energy
 interface: ezfio
 
 [energy_pt2]
 type: double precision
-doc: "Calculated selected CAS-SD energy with PT2 correction"
+doc: Calculated selected CAS-SD energy with PT2 correction
 interface: ezfio
 
+[do_ddci]
+type: logical
+doc: If true, remove purely inactive double excitations
+interface: ezfio,provider,ocaml
+default: False

plugins/CAS_SD_ZMQ/ezfio_interface.irp.f

@@ -1,4 +0,0 @@
-! DO NOT MODIFY BY HAND
-! Created by $QP_ROOT/scripts/ezfio_interface/ei_handler.py
-! from file /home/scemama/quantum_package/src/CAS_SD_ZMQ/EZFIO.cfg
-

plugins/CAS_SD_ZMQ/run_selection_slave.irp.f

@@ -50,8 +50,6 @@ subroutine run_selection_slave(thread,iproc,energy)
       else
         if(N /= buf%N) stop "N changed... wtf man??"
       end if
-      !print *, "psi_selectors_coef ", psi_selectors_coef(N_det_selectors-5:N_det_selectors, 1)
-      !call debug_det(psi_selectors(1,1,N_det_selectors), N_int)
       do i_generator=i_generator_start,i_generator_max,step
         call select_connected(i_generator,energy,pt2,buf)
       enddo

plugins/CAS_SD_ZMQ/selection.irp.f

@@ -672,9 +672,16 @@ subroutine fill_buffer_double(i_generator, sp, h1, h2, bannedOrb, banned, fock_d
       call apply_particles(mask, s1, p1, s2, p2, det, ok, N_int)
       logical, external              :: is_in_wavefunction
       if (is_in_wavefunction(det,N_int)) then
+        stop 'is_in_wf'
         cycle
       endif
       
+      if (do_ddci) then
+        integer, external              :: is_a_two_holes_two_particles
+        if (is_a_two_holes_two_particles(det)) then
+          cycle
+        endif
+      endif
       
       Hii = diag_H_mat_elem_fock(psi_det_generators(1,1,i_generator),det,fock_diag_tmp,N_int)
       max_e_pert = 0d0
@@ -1232,7 +1239,6 @@ subroutine ZMQ_selection(N_in, pt2)
   endif
 
   integer :: i_generator, i_generator_start, i_generator_max, step
-!  step = int(max(1.,10*elec_num/mo_tot_num)
 
   step = int(5000000.d0 / dble(N_int * N_states * elec_num * elec_num * mo_tot_num * mo_tot_num ))
   step = max(1,step)

src/Determinants/EZFIO.cfg

@@ -38,7 +38,7 @@ default: False
 type: logical
 doc: Force the wave function to be an eigenfunction of S^2
 interface: ezfio,provider,ocaml
-default: False
+default: True
 
 [threshold_generators]
 type: Threshold