From 2845b1c8ea7a1e97e49309022614d19467c03469 Mon Sep 17 00:00:00 2001 From: Kevin Gasperich Date: Thu, 26 Mar 2020 16:46:52 -0500 Subject: [PATCH] fixed mpi double include --- src/davidson/davidson_parallel.irp.f | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/davidson/davidson_parallel.irp.f b/src/davidson/davidson_parallel.irp.f index 128f3156..a7168297 100644 --- a/src/davidson/davidson_parallel.irp.f +++ b/src/davidson/davidson_parallel.irp.f @@ -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_dmatrix integer, external :: zmq_get_cdmatrix + IRP_IF MPI + include 'mpif.h' + IRP_ENDIF if (is_complex) then 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 IRP_IF MPI - include 'mpif.h' +! include 'mpif.h' call broadcast_chunks_complex_double(u_tc,size(u_tc,kind=8)) IRP_ENDIF @@ -202,7 +205,7 @@ subroutine davidson_slave_work(zmq_to_qp_run_socket, zmq_socket_push, N_st, sze, enddo IRP_IF MPI - include 'mpif.h' + !include 'mpif.h' call broadcast_chunks_double(u_t,size(u_t,kind=8)) IRP_ENDIF