LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-11-03 20:54:00 +01:00
Code Issues Releases Wiki Activity

Fix compiling with gfortran

Browse Source
This commit is contained in:
Anthony Scemama 2017-12-18 10:19:23 +01:00
parent af229e7028
commit c83dc311b1
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/FourIdx/four_index_slave.irp.f
View File

@ -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

2
src/FourIdx/four_index_zmq.irp.f
View File

@ -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