diff --git a/src/FourIdx/four_index_slave.irp.f b/src/FourIdx/four_index_slave.irp.f
index bc967528..5f82901a 100644
--- a/src/FourIdx/four_index_slave.irp.f
+++ b/src/FourIdx/four_index_slave.irp.f
@@ -101,7 +101,7 @@ subroutine four_index_transform_slave_work(map_a,matrix_B,LDB,            &
           tmp=value(ik)
           if (tmp /= 0.d0) then
             a_array_ik(ii) = ik
-            a_array_j(ii)  = j
+            a_array_j(ii)  = int(iand(j,32767),2)  ! Warning: integer*2
             a_array_value(ii) = tmp
             ii=ii+1_8
           endif
diff --git a/src/FourIdx/four_index_zmq.irp.f b/src/FourIdx/four_index_zmq.irp.f
index 5fffe999..2a0c56ce 100644
--- a/src/FourIdx/four_index_zmq.irp.f
+++ b/src/FourIdx/four_index_zmq.irp.f
@@ -245,7 +245,7 @@ subroutine four_idx_pull_results(zmq_socket_pull, map_c, task_id)
   use map_module
   implicit none
   type(map_type), intent(inout)   :: map_c
-  integer(ZMQ_PTR), intent(inout) :: zmq_socket_pull
+  integer(ZMQ_PTR), intent(in) :: zmq_socket_pull
 
   integer, intent(out) :: task_id