Restore Davidson task size

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, '|'

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

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