Line data Source code
1 : !{\src2tex{textfont=tt}}
2 : !!****f* ABINIT/xmpi_min_intv
3 : !! NAME
4 : !! xmpi_min_intv
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_min is the generic function.
10 : !!
11 : !! COPYRIGHT
12 : !! Copyright (C) 2001-2026 ABINIT group (AR,XG,MB)
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 3427 : subroutine xmpi_min_intv(xval,xmin,comm,ier)
20 :
21 : !Arguments-------------------------
22 : integer ,intent(in) :: xval
23 : integer ,intent(out) :: xmin
24 : integer ,intent(in) :: comm
25 : integer ,intent(out) :: ier
26 :
27 : !Local variables-------------------
28 : #if defined HAVE_MPI
29 : integer :: arr_xval(1),arr_xmin(1)
30 : #endif
31 :
32 : ! *************************************************************************
33 :
34 3427 : ier=0
35 : #if defined HAVE_MPI
36 3427 : if (comm /= MPI_COMM_SELF .and. comm /= MPI_COMM_NULL) then
37 3392 : arr_xval(1) = xval
38 3392 : call MPI_ALLREDUCE(arr_xval,arr_xmin,1,MPI_INTEGER,MPI_MIN,comm,ier)
39 3392 : xmin = arr_xmin(1)
40 : else
41 : #endif
42 35 : xmin=xval
43 : #if defined HAVE_MPI
44 : end if
45 : #endif
46 :
47 3427 : end subroutine xmpi_min_intv
48 : !!***
49 :
50 : !!****f* ABINIT/xmpi_min_dpv
51 : !! NAME
52 : !! xmpi_min_dpv
53 : !!
54 : !! FUNCTION
55 : !! Combines values from all processes and distribute
56 : !! the result back to all processes.
57 : !! Target: scalar double precisions.
58 : !!
59 : !! INPUTS
60 : !! comm= MPI communicator
61 : !!
62 : !! OUTPUT
63 : !! ier= exit status, a non-zero value meaning there is an error
64 : !!
65 : !! SIDE EFFECTS
66 : !! xval= buffer array
67 : !! xmin= number of elements in send buffer
68 : !!
69 : !! SOURCE
70 :
71 23614 : subroutine xmpi_min_dpv(xval,xmin,comm,ier)
72 :
73 : !Arguments-------------------------
74 : real(dp),intent(in) :: xval
75 : real(dp),intent(out) :: xmin
76 : integer ,intent(in) :: comm
77 : integer ,intent(out) :: ier
78 :
79 : !Local variables-------------------
80 : #if defined HAVE_MPI
81 : real(dp) :: arr_xval(1),arr_xmin(1)
82 : #endif
83 :
84 : ! *************************************************************************
85 :
86 23614 : ier=0
87 : #if defined HAVE_MPI
88 23614 : if (comm /= MPI_COMM_SELF .and. comm /= MPI_COMM_NULL) then
89 19396 : arr_xval(1) = xval
90 19396 : call MPI_ALLREDUCE(arr_xval,arr_xmin,1,MPI_DOUBLE_PRECISION,MPI_MIN,comm,ier)
91 19396 : xmin = arr_xmin(1)
92 : else
93 : #endif
94 4218 : xmin=xval
95 : #if defined HAVE_MPI
96 : end if
97 : #endif
98 :
99 23614 : end subroutine xmpi_min_dpv
100 : !!***
101 :
102 : !----------------------------------------------------------------------
103 :
104 : !!****f* ABINIT/xmpi_min_int1d
105 : !! NAME
106 : !! xmpi_min_int1d
107 : !!
108 : !! FUNCTION
109 : !! Combines values from all processes and distribute the result back to all processes.
110 : !! Target: 1d int array, in-place version
111 : !!
112 : !! INPUTS
113 : !! comm= MPI communicator
114 : !!
115 : !! OUTPUT
116 : !! ier= exit status, a non-zero value meaning there is an error
117 : !!
118 : !! SIDE EFFECTS
119 : !! xval= buffer array
120 : !!
121 : !! SOURCE
122 :
123 0 : subroutine xmpi_min_int1d(xval, comm, ier)
124 :
125 : !Arguments-------------------------
126 : integer,intent(inout) :: xval(:)
127 : integer,intent(in) :: comm
128 : integer,intent(out) :: ier
129 :
130 : !Local variables-------------------
131 : #if defined HAVE_MPI
132 0 : integer :: arr_xmin(size(xval))
133 : #endif
134 :
135 : ! *************************************************************************
136 :
137 0 : ier=0
138 : #if defined HAVE_MPI
139 0 : if (comm /= MPI_COMM_SELF .and. comm /= MPI_COMM_NULL) then
140 0 : call MPI_ALLREDUCE(xval, arr_xmin, size(xval), MPI_INTEGER, MPI_MIN, comm, ier)
141 0 : xval = arr_xmin
142 : end if
143 : #endif
144 :
145 0 : end subroutine xmpi_min_int1d
146 : !!***
147 :
148 : !----------------------------------------------------------------------
149 :
150 : !!****f* ABINIT/xmpi_min_dp
151 : !! NAME
152 : !! xmpi_min_dp
153 : !!
154 : !! FUNCTION
155 : !! Combines values from all processes and distribute the result back to all processes.
156 : !! Target: scalar double precisions, in-place version
157 : !!
158 : !! INPUTS
159 : !! comm= MPI communicator
160 : !!
161 : !! OUTPUT
162 : !! ier= exit status, a non-zero value meaning there is an error
163 : !!
164 : !! SIDE EFFECTS
165 : !! xval= buffer array
166 : !!
167 : !! SOURCE
168 :
169 2 : subroutine xmpi_min_dp(xval, comm, ier)
170 :
171 : !Arguments-------------------------
172 : real(dp),intent(inout) :: xval
173 : integer ,intent(in) :: comm
174 : integer ,intent(out) :: ier
175 :
176 : !Local variables-------------------
177 : #if defined HAVE_MPI
178 : real(dp) :: arr_xval(1), arr_xmin(1)
179 : #endif
180 :
181 : ! *************************************************************************
182 :
183 2 : ier=0
184 : #if defined HAVE_MPI
185 2 : if (comm /= MPI_COMM_SELF .and. comm /= MPI_COMM_NULL) then
186 2 : arr_xval(1) = xval
187 2 : call MPI_ALLREDUCE(arr_xval,arr_xmin,1,MPI_DOUBLE_PRECISION,MPI_MIN,comm,ier)
188 2 : xval = arr_xmin(1)
189 : end if
190 : #endif
191 :
192 2 : end subroutine xmpi_min_dp
193 : !!***
|
