Branch data Line data Source code
1 : : !{\src2tex{textfont=tt}}
2 : : !!****f* ABINIT/xmpi_iallgather
3 : : !! NAME
4 : : !! xmpi_iallgather
5 : : !!
6 : : !! FUNCTION
7 : : !! This module contains functions that calls MPI routine,
8 : : !! if we compile the code using the MPI CPP flags.
9 : : !! xmpi_iallgather is the generic function.
10 : : !!
11 : : !! COPYRIGHT
12 : : !! Copyright (C) 2001-2026 ABINIT group (MG)
13 : : !! This file is distributed under the terms of the
14 : : !! GNU General Public License, see ~ABINIT/COPYING
15 : : !! or http://www.gnu.org/copyleft/gpl.txt .
16 : : !!
17 : : !! SOURCE
18 : :
19 : : !!***
20 : :
21 : : !!****f* ABINIT/xmpi_iallgather_dp4d
22 : : !! NAME
23 : : !! xmpi_iallgather_dp4d
24 : : !!
25 : : !! FUNCTION
26 : : !! Gathers data from all tasks and distributes it to all. Non-blocking version
27 : : !! Target: double precision four-dimensional arrays.
28 : : !!
29 : : !! INPUTS
30 : : !! xval= buffer array
31 : : !! nelem= number of elements
32 : : !! comm= MPI communicator
33 : : !!
34 : : !! OUTPUT
35 : : !! ierr= exit status, a non-zero value meaning there is an error
36 : : !! request: MPI request
37 : : !!
38 : : !! SIDE EFFECTS
39 : : !! recvbuf= received elements
40 : : !!
41 : : !! SOURCE
42 : :
43 [ # # # # ]: 0 : subroutine xmpi_iallgather_dp4d(xval, nelem, recvbuf, comm, request)
44 : :
45 : : !Arguments-------------------------
46 : : real(dp) ABI_ASYNC, intent(in) :: xval(:,:,:,:)
47 : : real(dp) ABI_ASYNC, intent(inout) :: recvbuf(:,:,:,:)
48 : : integer ,intent(in) :: nelem,comm
49 : : integer,intent(out) :: request
50 : :
51 : : !Local variables-------------------
52 : : integer :: ierr
53 : :
54 : : ! *************************************************************************
55 : 0 : ierr = 0
56 : :
57 : : #ifdef HAVE_MPI_IALLGATHER
58 : : ! Requires MPI3
59 [ # # ]: 0 : if (comm /= MPI_COMM_SELF .and. comm /= MPI_COMM_NULL) then
60 [ # # # # ]: 0 : call MPI_IALLGATHER(xval, nelem, MPI_DOUBLE_PRECISION, recvbuf, nelem, MPI_DOUBLE_PRECISION, comm, request, ierr)
61 : 0 : xmpi_count_requests = xmpi_count_requests + 1
62 [ # # ]: 0 : else if (comm == MPI_COMM_SELF) then
63 [ # # # # : 0 : recvbuf = xval
# # # # ]
64 : 0 : request = xmpi_request_null
65 : : end if
66 : 0 : return
67 : : #endif
68 : :
69 : : ! Call the blocking version and return null request.
70 : : ! write(*,*)"will block here and return fake request"
71 : : call xmpi_allgather(xval, nelem, recvbuf, comm, ierr)
72 : : request = xmpi_request_null
73 : :
74 : : end subroutine xmpi_iallgather_dp4d
75 : : !!***
|
