From c83dc311b1c8a6793a1723eed7d55f07cbcf19df Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 18 Dec 2017 10:19:23 +0100 Subject: [PATCH] Fix compiling with gfortran --- src/FourIdx/four_index_slave.irp.f | 2 +- src/FourIdx/four_index_zmq.irp.f | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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