PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-23 21:03:49 +01:00
Code Releases Activity

fixed mpi double include

Browse Source
This commit is contained in:
Kevin Gasperich 2020-03-26 16:46:52 -05:00
parent 437846e4d2
commit 2845b1c8ea
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/davidson/davidson_parallel.irp.f
View File

@ -105,6 +105,9 @@ subroutine davidson_slave_work(zmq_to_qp_run_socket, zmq_socket_push, N_st, sze,
! integer, external :: zmq_get_dvector ! integer, external :: zmq_get_dvector
integer, external :: zmq_get_dmatrix integer, external :: zmq_get_dmatrix
integer, external :: zmq_get_cdmatrix integer, external :: zmq_get_cdmatrix
IRP_IF MPI
include 'mpif.h'
IRP_ENDIF
if (is_complex) then if (is_complex) then
complex*16, allocatable :: v_tc(:,:), s_tc(:,:), u_tc(:,:) complex*16, allocatable :: v_tc(:,:), s_tc(:,:), u_tc(:,:)
@ -140,7 +143,7 @@ subroutine davidson_slave_work(zmq_to_qp_run_socket, zmq_socket_push, N_st, sze,
enddo enddo
IRP_IF MPI IRP_IF MPI
include 'mpif.h' ! include 'mpif.h'
call broadcast_chunks_complex_double(u_tc,size(u_tc,kind=8)) call broadcast_chunks_complex_double(u_tc,size(u_tc,kind=8))
IRP_ENDIF IRP_ENDIF
@ -202,7 +205,7 @@ subroutine davidson_slave_work(zmq_to_qp_run_socket, zmq_socket_push, N_st, sze,
enddo enddo
IRP_IF MPI IRP_IF MPI
include 'mpif.h' !include 'mpif.h'
call broadcast_chunks_double(u_t,size(u_t,kind=8)) call broadcast_chunks_double(u_t,size(u_t,kind=8))
IRP_ENDIF IRP_ENDIF