diff --git a/plugins/Full_CI_ZMQ/fci_zmq.irp.f b/plugins/Full_CI_ZMQ/fci_zmq.irp.f
index c81b1266..a5dd8dcf 100644
--- a/plugins/Full_CI_ZMQ/fci_zmq.irp.f
+++ b/plugins/Full_CI_ZMQ/fci_zmq.irp.f
@@ -134,7 +134,7 @@ subroutine ZMQ_selection(N_in, pt2)
 
   step = int(5000000.d0 / dble(N_int * N_states * elec_num * elec_num * mo_tot_num * mo_tot_num ))
   step = max(1,step)
-  do i= N_det_generators, 1, -step
+  do i= 1,N_det_generators, step
     i_generator_start = max(i-step+1,1)
     i_generator_max = i
     write(task,*) i_generator_start, i_generator_max, 1, N
diff --git a/src/Davidson/u0Hu0.irp.f b/src/Davidson/u0Hu0.irp.f
index a1a72100..3787370a 100644
--- a/src/Davidson/u0Hu0.irp.f
+++ b/src/Davidson/u0Hu0.irp.f
@@ -252,7 +252,7 @@ subroutine H_S2_u_0_nstates(v_0,s_0,u_0,H_jj,S2_jj,n,keys_tmp,Nint,N_st,sze_8)
   ave_workload = ave_workload/dble(shortcut(0,1))
 
 
-  do sh=shortcut(0,1),1,-1
+  do sh=1,shortcut(0,1),1
     workload = shortcut(0,1)+dble(shortcut(sh+1,1) - shortcut(sh,1))**2
     do i=sh, shortcut(0,2), shortcut(0,1)
       do j=i, min(i, shortcut(0,2))
diff --git a/src/Determinants/H_apply_zmq.template.f b/src/Determinants/H_apply_zmq.template.f
index d59f2994..59544b79 100644
--- a/src/Determinants/H_apply_zmq.template.f
+++ b/src/Determinants/H_apply_zmq.template.f
@@ -35,7 +35,7 @@ subroutine $subroutine($params_main)
 
   call zmq_put_psi(zmq_to_qp_run_socket,1,energy,size(energy))
 
-  do i_generator=N_det_generators,1,-1
+  do i_generator=1,N_det_generators
     $skip
     write(task,*) i_generator
     call add_task_to_taskserver(zmq_to_qp_run_socket,task)
diff --git a/src/Integrals_Bielec/ao_bi_integrals.irp.f b/src/Integrals_Bielec/ao_bi_integrals.irp.f
index 2ebb402e..9eadbf35 100644
--- a/src/Integrals_Bielec/ao_bi_integrals.irp.f
+++ b/src/Integrals_Bielec/ao_bi_integrals.irp.f
@@ -368,7 +368,7 @@ BEGIN_PROVIDER [ logical, ao_bielec_integrals_in_map ]
 
   call new_parallel_job(zmq_to_qp_run_socket,'ao_integrals')
 
-  do l=1,ao_num
+  do l=ao_num,1,-1
     write(task,*) "triangle ", l
     call add_task_to_taskserver(zmq_to_qp_run_socket,task)
   enddo