mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-24 21:41:46 +02:00
Fix compiling with gfortran
This commit is contained in:
parent
af229e7028
commit
c83dc311b1
@ -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
|
||||
|
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user