From 6553b53d1dbefa51ba027e248c735dd6ef60d98e Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Sun, 24 Jan 2021 11:22:03 +0100
Subject: [PATCH] Restore Davidson task size

---
 src/davidson/davidson_parallel.irp.f  | 4 ++--
 src/determinants/configurations.irp.f | 1 +
 src/two_body_rdm/example.irp.f        | 4 ++++
 3 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/davidson/davidson_parallel.irp.f b/src/davidson/davidson_parallel.irp.f
index 9b2dc045..59318cd6 100644
--- a/src/davidson/davidson_parallel.irp.f
+++ b/src/davidson/davidson_parallel.irp.f
@@ -428,7 +428,7 @@ subroutine H_S2_u_0_nstates_zmq(v_0,s_0,u_0,N_st,sze)
 
   integer :: istep, imin, imax, ishift, ipos
   integer, external :: add_task_to_taskserver
-  integer, parameter :: tasksize=100000
+  integer, parameter :: tasksize=10000
   character*(100000) :: task
   istep=1
   ishift=0
@@ -441,7 +441,7 @@ subroutine H_S2_u_0_nstates_zmq(v_0,s_0,u_0,N_st,sze)
     if (imin==1) then
       istep = 2
     else
-      istep = 2
+      istep = 1
     endif
     do ishift=0,istep-1
       write(task(ipos:ipos+50),'(4(I11,1X),1X,1A)') imin, imax, ishift, istep, '|'
diff --git a/src/determinants/configurations.irp.f b/src/determinants/configurations.irp.f
index ecd5bfea..42e16880 100644
--- a/src/determinants/configurations.irp.f
+++ b/src/determinants/configurations.irp.f
@@ -42,6 +42,7 @@ subroutine configuration_to_dets_size(o,sze,n_alpha,Nint)
     amax -= popcnt( o(k,2) )
   enddo
   if (binom_int(bmax, amax) > huge(1)) then
+    print *, bmax, amax
     print *,  irp_here, ': Too many determinants to generate'
     stop 1
   endif
diff --git a/src/two_body_rdm/example.irp.f b/src/two_body_rdm/example.irp.f
index 4400613c..c85e560a 100644
--- a/src/two_body_rdm/example.irp.f
+++ b/src/two_body_rdm/example.irp.f
@@ -284,3 +284,7 @@ subroutine routine_full_mos
    print*,'wee_tot_st_av_3         = ',wee_tot_st_av_3
 
 end
+
+program test
+  call routine_active_only
+end