2017-05-31 02:03:29 +02:00
|
|
|
subroutine mpi_bcast_psi()
|
|
|
|
|
use f77_zmq
|
|
|
|
|
implicit none
|
|
|
|
|
BEGIN_DOC
|
2017-07-17 23:33:42 +02:00
|
|
|
! Broadcast the wave function coming from the qp_run scheduler
|
2017-05-31 02:03:29 +02:00
|
|
|
END_DOC
|
|
|
|
|
integer :: ierr
|
|
|
|
|
|
|
|
|
|
IRP_IF MPI
|
2017-07-22 12:50:11 +02:00
|
|
|
include 'mpif.h'
|
2017-05-31 02:03:29 +02:00
|
|
|
call MPI_BCast(N_states, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
|
|
|
|
|
call MPI_BCast(N_det, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
|
|
|
|
|
call MPI_BCast(psi_det_size, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
|
|
|
|
|
|
|
|
|
|
TOUCH psi_det_size N_det N_states
|
|
|
|
|
|
|
|
|
|
call MPI_BCast(psi_det, N_det, MPI_INTEGER8, 0, MPI_COMM_WORLD, ierr)
|
|
|
|
|
call MPI_BCast(psi_coef, psi_det_size, MPI_DOUBLE_PRECISION* N_states, 0, MPI_COMM_WORLD, ierr)
|
2017-07-17 23:33:42 +02:00
|
|
|
IRP_ENDIF
|
2017-05-31 02:03:29 +02:00
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
