OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
spmd_cell_list_exchange.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23!||====================================================================
24!|| spmd_cell_list_exchange ../engine/source/mpi/interfaces/spmd_cell_list_exchange.F
25!||--- called by ------------------------------------------------------
26!|| inter_prepare_sort ../engine/source/interfaces/generic/inter_prepare_sort.F
27!||--- calls -----------------------------------------------------
28!|| spmd_cell_size_exchange ../engine/source/mpi/interfaces/spmd_cell_size_exchange.F
29!|| spmd_cell_size_exchange_init ../engine/source/mpi/interfaces/spmd_cell_size_exchange_init.F
30!|| spmd_cell_size_post_rcv ../engine/source/mpi/interfaces/spmd_cell_size_post_rcv.F
31!|| spmd_waitany ../engine/source/mpi/spmd_wait.F90
32!||--- uses -----------------------------------------------------
33!|| intbufdef_mod ../common_source/modules/interfaces/intbufdef_mod.F90
34!|| inter_sorting_mod ../engine/share/modules/inter_sorting_mod.F
35!|| inter_struct_mod ../engine/share/modules/inter_struct_mod.F
36!|| spmd_comm_world_mod ../engine/source/mpi/spmd_comm_world.F90
37!|| spmd_mod ../engine/source/mpi/spmd_mod.f90
38!|| tri7box ../engine/share/modules/tri7box.F
39!||====================================================================
40 SUBROUTINE spmd_cell_list_exchange(IRCVFROM,ISENDTO,MODE,WEIGHT,IAD_ELEM,
41 . FR_ELEM,X,V,MS,TEMP,
42 . KINET,NODNX_SMS,ITAB,INTBUF_TAB,IPARI,
43 . NIN,INTER_STRUCT,SORT_COMM,NODNX_SMS_SIZ,TEMP_SIZE, GOT_PREVIEW,component)
44!$COMMENT
45! SPMD_CELL_LIST_EXCHANGE description :
46! exchange of remote cell and preparation of comm "send/rcv the data of remote nodes"
47! SPMD_CELL_LIST_EXCHANGE organization :
48! * mode = 1 : send & rcv the number of cell & prepare the array for the next comm
49! * mode = 2 : - wait the previous comm "mode 1"
50! - send & rcv the cell
51! * mode = 3 : - wait the previous comm "send/rcv the cell"
52! - send/rcv the number of secondary nodes
53! - prepare the S buffer of secondary nodes (x, v, temp ...)
54! * mode = 4 : - wait the S comm "send the cells"
55! - deallocation
56!$ENDCOMMENT
57C-----------------------------------------------
58C M o d u l e s
59C-----------------------------------------------
60 USE intbufdef_mod
61 USE inter_sorting_mod
62 USE inter_struct_mod
63 USE tri7box
64 use spmd_mod
65C-----------------------------------------------
66C I m p l i c i t T y p e s
67C-----------------------------------------------
68 USE spmd_comm_world_mod, ONLY : spmd_comm_world
69#include "implicit_f.inc"
70C-----------------------------------------------
71C M e s s a g e P a s s i n g
72C-----------------------------------------------
73#include "spmd.inc"
74C-----------------------------------------------
75C C o m m o n B l o c k s
76C-----------------------------------------------
77#include "com01_c.inc"
78#include "com04_c.inc"
79#include "param_c.inc"
80#include "task_c.inc"
81#include "tabsiz_c.inc"
82C-----------------------------------------------
83C D u m m y A r g u m e n t s
84C-----------------------------------------------
85 INTEGER, INTENT(in) :: NIN
86 INTEGER, INTENT(in) :: MODE
87 INTEGER, INTENT(in) :: NODNX_SMS_SIZ ! size of NODNX_SMS
88 INTEGER, INTENT(in) :: TEMP_SIZE ! size of TEMP
89 INTEGER, DIMENSION(NINTER+1,NSPMD+1), INTENT(in) :: ISENDTO,IRCVFROM
90 INTEGER, DIMENSION(NPARI,NINTER), INTENT(in) :: IPARI
91 INTEGER, DIMENSION(NUMNOD), INTENT(inout) :: WEIGHT
92 INTEGER, DIMENSION(2,NSPMD+1), INTENT(in) :: IAD_ELEM ! connectivity array iad(P+1)-iad(P) = nb of frontier node
93 INTEGER, DIMENSION(SFR_ELEM), INTENT(in) :: FR_ELEM ! frontier node ID
94 my_real, DIMENSION(3,NUMNOD), INTENT(in) :: x,v ! position & velocity
95 my_real, DIMENSION(NUMNOD), INTENT(in) :: ms ! mass
96 my_real, DIMENSION(TEMP_SIZE), INTENT(in) :: temp ! temperature
97 INTEGER, DIMENSION(NUMNOD), INTENT(in) :: ITAB ! global node ID
98 INTEGER, DIMENSION(NUMNOD), INTENT(in) :: KINET ! k energy
99 INTEGER, DIMENSION(NODNX_SMS_SIZ), INTENT(in) :: NODNX_SMS ! SMS array
100 TYPE(intbuf_struct_), DIMENSION(NINTER), INTENT(in) :: INTBUF_TAB
101 TYPE(inter_struct_type), DIMENSION(NINTER), INTENT(inout) :: INTER_STRUCT ! structure for interface
102 TYPE(sorting_comm_type), DIMENSION(NINTER), INTENT(inout) :: SORT_COMM ! structure for interface sorting comm
103 INTEGER, INTENT(IN) :: GOT_PREVIEW
104 type(component_), dimension(ninter), intent(inout) :: component
105C-----------------------------------------------
106C L o c a l V a r i a b l e s
107C-----------------------------------------------
108#ifdef MPI
109 LOGICAL :: IS_EXCHANGE_NEEDED
110 INTEGER :: KK,I,J,ijk
111 INTEGER :: P,P_LOC,LOCAL_RANK,REMOTE_PROC
112 INTEGER :: SIZE_,OLD_POINTER
113 INTEGER :: ADRESS,SHIFT_
114 INTEGER :: INDEX_S,INDEX_R
115 INTEGER :: ITIED
116
117 INTEGER IERROR1,STATUS(MPI_STATUS_SIZE),IERROR
118 INTEGER :: TOTAL_RCV_SIZE,TOTAL_SEND_SIZE
119 INTEGER :: LOC_PROC,ID_PROC
120 INTEGER :: COUNT_COMM_SIZE_CELL,ID_COMM
121 INTEGER :: DIPLS_
122 INTEGER, DIMENSION(:), ALLOCATABLE :: ARRAY_REQUEST
123 LOGICAL, DIMENSION(:,:,:), ALLOCATABLE :: ALREADY_SEND
124 INTEGER, DIMENSION(:), ALLOCATABLE :: INDEX_ALREADY_SEND
125
126 INTEGER :: MSGTYP,my_size
127 INTEGER :: MSGOFF
128 DATA MSGOFF/13000/
129 integer, parameter :: my_tag = 13001
130 logical :: my_condition
131! --------------------------------------------------------------------
132 loc_proc = ispmd + 1
133
134
135 ! ----------------------------
136 ! mode = 1
137 ! send & rcv the number of cell & prepare the array for the next comm
138 IF(mode==1) THEN
139 IF(ircvfrom(nin,loc_proc)==0.AND.isendto(nin,loc_proc)==0) RETURN !CYCLE
140 IF(.NOT.ALLOCATED(sort_comm(nin)%NB_CELL_PROC)) THEN
141 size_ = sort_comm(nin)%PROC_NUMBER
142 ALLOCATE(sort_comm(nin)%NB_CELL_PROC(size_))
143 ENDIF
144
145 IF(.NOT.ALLOCATED(sort_comm(nin)%SEND_NB_CELL)) THEN
146 size_ = sort_comm(nin)%PROC_NUMBER
147 ALLOCATE(sort_comm(nin)%SEND_NB_CELL(size_))
148 ENDIF
149
150 IF(.NOT.ALLOCATED(sort_comm(nin)%RCV_NB_CELL)) THEN
151 size_ = sort_comm(nin)%PROC_NUMBER
152 ALLOCATE(sort_comm(nin)%RCV_NB_CELL(size_))
153 ENDIF
154
155 IF(.NOT.ALLOCATED(sort_comm(nin)%SEND_DISPLS_NB_CELL)) THEN
156 size_ = sort_comm(nin)%PROC_NUMBER
157 ALLOCATE(sort_comm(nin)%SEND_DISPLS_NB_CELL(size_))
158 ENDIF
159
160 IF(.NOT.ALLOCATED(sort_comm(nin)%RCV_DISPLS_NB_CELL)) THEN
161 size_ = sort_comm(nin)%PROC_NUMBER
162 ALLOCATE(sort_comm(nin)%RCV_DISPLS_NB_CELL(size_))
163 ENDIF
164 my_size = 0
165 total_rcv_size = 0
166 DO i=1,sort_comm(nin)%PROC_NUMBER
167 id_proc = sort_comm(nin)%PROC_LIST(i)
168 sort_comm(nin)%SEND_NB_CELL(i) = 0
169 IF(isendto(nin,id_proc)>0) THEN ! nsn of proc ID_PROC >0
170 sort_comm(nin)%SEND_NB_CELL(i) = 1
171 ENDIF
172 sort_comm(nin)%SEND_DISPLS_NB_CELL(i) = 0
173
174 sort_comm(nin)%RCV_NB_CELL(i) = 0
175 IF(isendto(nin,loc_proc)>0) THEN ! nsn of current proc >0
176 sort_comm(nin)%RCV_NB_CELL(i) = 1
177 ENDIF
178 sort_comm(nin)%RCV_DISPLS_NB_CELL(i) = total_rcv_size
179 IF(isendto(nin,loc_proc)>0) THEN ! nsn of current proc >0
180 total_rcv_size = total_rcv_size + 1
181 ENDIF
182 ENDDO
183
184 total_send_size = 2
185
186 if(.not.allocated(sort_comm(nin)%request_s)) then
187 allocate(sort_comm(nin)%request_s(sort_comm(nin)%proc_number))
188 endif
189 if(.not.allocated(sort_comm(nin)%request_r)) then
190 allocate(sort_comm(nin)%request_r(sort_comm(nin)%proc_number))
191 endif
192 if(.not.allocated(sort_comm(nin)%index_r)) then
193 allocate(sort_comm(nin)%index_r(sort_comm(nin)%proc_number))
194 endif
195 IF(.NOT.ALLOCATED(sort_comm(nin)%SEND_SIZE_CELL)) THEN
196 size_ = sort_comm(nin)%PROC_NUMBER
197 ALLOCATE(sort_comm(nin)%SEND_SIZE_CELL(size_))
198 ENDIF
199
200 sort_comm(nin)%request_s_nb = 0
201 sort_comm(nin)%request_r_nb = 0
202 my_size = 0
203 itied = ipari(85,nin)
204 do i=1,sort_comm(nin)%proc_number
205 id_proc = sort_comm(nin)%proc_list(i)
206 sort_comm(nin)%nb_cell_proc(i) = 0
207 sort_comm(nin)%send_size_cell(i) = 0
208 my_condition = (itied/=0.and.id_proc-1/=ispmd).or.component(nin)%proc_comp(id_proc)%need_comm_r
209 my_condition = my_condition.and.(isendto(nin,ispmd+1)>0)
210 my_condition = my_condition.and.id_proc/=loc_proc
211 if(my_condition) then
212 sort_comm(nin)%request_r_nb = sort_comm(nin)%request_r_nb + 1
213 sort_comm(nin)%index_r(sort_comm(nin)%request_r_nb) = i
214 call spmd_irecv(sort_comm(nin)%nb_cell_proc(i),1,id_proc-1,my_tag,
215 . sort_comm(nin)%request_r(sort_comm(nin)%request_r_nb),spmd_comm_world)
216 endif
217 my_condition = (itied/=0.and.id_proc-1/=ispmd).or.component(nin)%proc_comp(id_proc)%need_comm_s
218 my_condition = my_condition.and.(isendto(nin,id_proc)>0)
219 my_condition = my_condition.and.id_proc/=loc_proc
220 if(my_condition) then
221 sort_comm(nin)%request_s_nb = sort_comm(nin)%request_s_nb + 1
222 call spmd_isend(sort_comm(nin)%size_cell_list(1),1,id_proc-1,my_tag,
223 . sort_comm(nin)%request_s(sort_comm(nin)%request_s_nb),spmd_comm_world)
224 my_size = my_size + 1
225 sort_comm(nin)%send_size_cell(i) = sort_comm(nin)%size_cell_list(1)
226 endif
227 enddo
228
229 IF(.NOT.ALLOCATED(sort_comm(nin)%SEND_DISPLS_CELL)) THEN
230 size_ = sort_comm(nin)%PROC_NUMBER
231 ALLOCATE(sort_comm(nin)%SEND_DISPLS_CELL(size_))
232 ENDIF
233
234 IF(.NOT.ALLOCATED(sort_comm(nin)%RCV_DISPLS_CELL)) THEN
235 size_ = sort_comm(nin)%PROC_NUMBER
236 ALLOCATE(sort_comm(nin)%RCV_DISPLS_CELL(size_))
237 ENDIF
238 ENDIF
239 ! ----------------------------
240
241
242 ! ----------------------------
243 ! mode = 2
244 ! wait the previous comm
245 ! send & rcv the cell
246 IF(mode==2) THEN
247 ! -------------------------
248 ! wait the previous comm
249 sort_comm(nin)%NB_REQUEST_CELL_SEND = 0
250 sort_comm(nin)%NB_REQUEST_CELL_RCV = 0
251 IF(.NOT.ALLOCATED(sort_comm(nin)%RCV_SIZE_CELL)) THEN
252 size_ = sort_comm(nin)%PROC_NUMBER
253 ALLOCATE(sort_comm(nin)%RCV_SIZE_CELL(size_))
254 ENDIF
255 sort_comm(nin)%RCV_SIZE_CELL(:) = 0
256
257 IF(ircvfrom(nin,loc_proc)==0.AND.isendto(nin,loc_proc)==0) RETURN
258
259 IF(.NOT.ALLOCATED(sort_comm(nin)%REQUEST_CELL_SEND)) THEN
260 ALLOCATE(sort_comm(nin)%REQUEST_CELL_SEND(sort_comm(nin)%PROC_NUMBER))
261 sort_comm(nin)%REQUEST_CELL_SEND(1:sort_comm(nin)%PROC_NUMBER) = 0
262 ENDIF
263 IF(.NOT.ALLOCATED(sort_comm(nin)%REQUEST_CELL_RCV)) THEN
264 ALLOCATE(sort_comm(nin)%REQUEST_CELL_RCV(sort_comm(nin)%PROC_NUMBER))
265 sort_comm(nin)%REQUEST_CELL_RCV(1:sort_comm(nin)%PROC_NUMBER) = 0
266 ENDIF
267 IF(.NOT.ALLOCATED(sort_comm(nin)%INDEX_RCV)) THEN
268 ALLOCATE(sort_comm(nin)%INDEX_RCV(sort_comm(nin)%PROC_NUMBER))
269 sort_comm(nin)%INDEX_RCV(1:sort_comm(nin)%PROC_NUMBER) = 0
270 ENDIF
271 total_rcv_size = 0
272 do ijk=1,sort_comm(nin)%request_r_nb
273 call spmd_waitany(sort_comm(nin)%request_r_nb,sort_comm(nin)%request_r,index_r,status)
274 i = sort_comm(nin)%index_r(index_r)
275 enddo
276 do i=1,sort_comm(nin)%proc_number
277 id_proc = sort_comm(nin)%proc_list(i)
278
279 sort_comm(nin)%SEND_DISPLS_CELL(i) = 0
280
281 sort_comm(nin)%RCV_SIZE_CELL(i) = 0
282 IF(isendto(nin,loc_proc)>0) THEN ! nsn of current proc >0
283 sort_comm(nin)%RCV_SIZE_CELL(i) = sort_comm(nin)%NB_CELL_PROC(i)
284 ENDIF
285 sort_comm(nin)%RCV_DISPLS_CELL(i) = total_rcv_size
286 IF(isendto(nin,loc_proc)>0) THEN ! nsn of current proc >0
287 total_rcv_size = total_rcv_size + sort_comm(nin)%NB_CELL_PROC(i)
288 ENDIF
289 ENDDO
290
291 do ijk=1,sort_comm(nin)%request_s_nb
292 call spmd_waitany(sort_comm(nin)%request_s_nb,sort_comm(nin)%request_s,index_r,status)
293 enddo
294
295 total_send_size = sort_comm(nin)%SIZE_CELL_LIST(1)
296
297 IF(ALLOCATED(sort_comm(nin)%CELL) ) DEALLOCATE(sort_comm(nin)%CELL)
298 ALLOCATE( sort_comm(nin)%CELL(total_rcv_size) )
299
300 itied = ipari(85,nin)
301
302 ! ----------------------
303 ! rcv of remote cell
304 DO i=1,sort_comm(nin)%PROC_NUMBER
305 id_proc = sort_comm(nin)%PROC_LIST(i)
306 my_condition = (itied/=0.or.sort_comm(nin)%RCV_SIZE_CELL(i)>0)
307 my_condition = my_condition.and.(isendto(nin,ispmd+1)>0)
308 my_condition = my_condition.and.id_proc/=loc_proc
309 IF(my_condition) THEN
310 msgtyp = msgoff
311 sort_comm(nin)%NB_REQUEST_CELL_RCV = sort_comm(nin)%NB_REQUEST_CELL_RCV + 1
312 sort_comm(nin)%INDEX_RCV(sort_comm(nin)%NB_REQUEST_CELL_RCV) = i
313 CALL mpi_irecv(sort_comm(nin)%CELL(sort_comm(nin)%RCV_DISPLS_CELL(i) + 1),
314 . sort_comm(nin)%RCV_SIZE_CELL(i),mpi_integer,it_spmd(id_proc),
315 . msgtyp,spmd_comm_world,sort_comm(nin)%REQUEST_CELL_RCV(sort_comm(nin)%NB_REQUEST_CELL_RCV),ierror)
316 ENDIF
317 ENDDO
318 ! ----------------------
319
320 ! ----------------------
321 ! send of cell
322 DO i=1,sort_comm(nin)%PROC_NUMBER
323 id_proc = sort_comm(nin)%PROC_LIST(i)
324 my_condition = (itied/=0.or.sort_comm(nin)%SEND_SIZE_CELL(i)>0)
325 my_condition = my_condition.and.(isendto(nin,id_proc)>0)
326 my_condition = my_condition.and.id_proc/=loc_proc
327 IF(my_condition) THEN
328 msgtyp = msgoff
329 sort_comm(nin)%NB_REQUEST_CELL_SEND =
330 . sort_comm(nin)%NB_REQUEST_CELL_SEND + 1
331 CALL mpi_isend(sort_comm(nin)%CELL_LIST,
332 . sort_comm(nin)%SEND_SIZE_CELL(i),mpi_integer,it_spmd(id_proc),
333 . msgtyp,spmd_comm_world,sort_comm(nin)%REQUEST_CELL_SEND(sort_comm(nin)%NB_REQUEST_CELL_SEND),ierror)
334 ENDIF
335 ENDDO
336 ! ----------------------
337 ENDIF
338 ! ----------------------------
339
340 ! ----------------------------
341 ! mode = 3
342 ! wait the previous comm "send/rcv the cell"
343 ! send/rcv the number of secondary nodes
344 ! prepare the S buffer of secondary nodes (x, v, temp ...)
345 IF(mode==3) THEN
346 ! -------------------------
347 ! wait the previous comm
348 CALL spmd_cell_size_exchange_init(ircvfrom,isendto,ipari,nin,inter_struct,sort_comm)
349 nsnfi(nin)%P(1:nspmd) = 0
350 IF(ircvfrom(nin,loc_proc)==0.AND.isendto(nin,loc_proc)==0) RETURN
351
352 itied = ipari(85,nin)
353 IF(sort_comm(nin)%SIZE_CELL_LIST(1)>0.OR.itied/=0) THEN ! need to prepare the reception only if there are still some NMN on the current proc
354 CALL spmd_cell_size_post_rcv(ircvfrom,isendto,nin,sort_comm,itied,component)
355 ENDIF
356 ALLOCATE( already_send(nb_cell_x,nb_cell_y,nb_cell_z) )
357 IF(isendto(nin,loc_proc)/=0) already_send(1:nb_cell_x,1:nb_cell_y,1:nb_cell_z) = .false.
358 ALLOCATE( index_already_send(nb_cell_x*nb_cell_y*nb_cell_z) )
359 ! -------------------------
360 if(got_preview == 1) THEN
361 CALL mpi_waitall( sort_comm(nin)%NB_REQUEST_CELL_RCV, sort_comm(nin)%REQUEST_CELL_RCV,mpi_statuses_ignore,ierror )
362 ENDIF
363
364 DO kk=1,sort_comm(nin)%NB_REQUEST_CELL_RCV
365 index_r = kk
366 ! wait the first message
367
368 if(got_preview == 0 ) then
369 CALL mpi_waitany( sort_comm(nin)%NB_REQUEST_CELL_RCV,
370 . sort_comm(nin)%REQUEST_CELL_RCV,index_r,status,ierror )
371 endif
372
373 remote_proc = sort_comm(nin)%INDEX_RCV(index_r)
374 is_exchange_needed = .true.
375
376 IF(sort_comm(nin)%PROC_LIST(remote_proc)==ispmd+1) is_exchange_needed = .false.
377 IF(is_exchange_needed.AND.sort_comm(nin)%NB_CELL_PROC(remote_proc)==0) is_exchange_needed = .false. ! proc without any main node cell
378 IF(itied/=0.AND.ircvfrom(nin,remote_proc)/=0) is_exchange_needed = .true. ! itied option : force the exchange
379 ! -------------------------
380 IF(is_exchange_needed) THEN
381 ! ISEND the number of secondary nodes
382 ! prepare the S buffer of secondary nodes (x, v, temp ...)
383 CALL spmd_cell_size_exchange(ircvfrom,isendto,weight,
384 . iad_elem,fr_elem,x,v,ms,temp,kinet,nodnx_sms,itab,intbuf_tab,ipari,nin,remote_proc,
385 . already_send,index_already_send,sort_comm,nodnx_sms_siz,temp_size)
386 ENDIF
387 ! -------------------------
388 ENDDO
389 ! -------------------------
390 DEALLOCATE( already_send )
391 DEALLOCATE( index_already_send )
392 ENDIF
393 ! ----------------------------
394
395 ! ----------------------------
396 ! mode = 4
397 ! wait the S comm "send the cells"
398 ! and deallocation
399 IF(mode==4) THEN
400 IF(ircvfrom(nin,loc_proc)==0.AND.isendto(nin,loc_proc)==0) RETURN
401 CALL mpi_waitall( sort_comm(nin)%NB_REQUEST_CELL_SEND,
402 . sort_comm(nin)%REQUEST_CELL_SEND,mpi_statuses_ignore,ierror )
403
404 IF(ALLOCATED(sort_comm(nin)%SEND_SIZE_CELL)) DEALLOCATE(sort_comm(nin)%SEND_SIZE_CELL)
405 IF(ALLOCATED(sort_comm(nin)%SEND_DISPLS_CELL)) DEALLOCATE(sort_comm(nin)%SEND_DISPLS_CELL)
406 IF(ALLOCATED(sort_comm(nin)%RCV_SIZE_CELL)) DEALLOCATE(sort_comm(nin)%RCV_SIZE_CELL)
407 IF(ALLOCATED(sort_comm(nin)%RCV_DISPLS_CELL)) DEALLOCATE(sort_comm(nin)%RCV_DISPLS_CELL)
408 IF(ALLOCATED(sort_comm(nin)%CELL)) DEALLOCATE(sort_comm(nin)%CELL)
409 ENDIF
410 ! ----------------------------
411
412! --------------------------------------------------------------------
413#endif
414 RETURN
415 END SUBROUTINE spmd_cell_list_exchange
my_real
#define my_real
Definition cppsort.cpp:32
mpi_isend
subroutine mpi_isend(buf, cnt, datatype, dest, tag, comm, ireq, ierr)
Definition mpi.f:382
mpi_waitall
subroutine mpi_waitall(cnt, array_of_requests, status, ierr)
Definition mpi.f:536
mpi_waitany
subroutine mpi_waitany(cnt, array_of_requests, index, status, ierr)
Definition mpi.f:549
mpi_irecv
subroutine mpi_irecv(buf, cnt, datatype, source, tag, comm, ireq, ierr)
Definition mpi.f:372
inter_sorting_mod
Definition inter_sorting_mod.F:57
inter_sorting_mod::nb_cell_z
integer nb_cell_z
Definition inter_sorting_mod.F:72
inter_sorting_mod::nb_cell_y
integer nb_cell_y
Definition inter_sorting_mod.F:72
inter_sorting_mod::nb_cell_x
integer nb_cell_x
Definition inter_sorting_mod.F:72
inter_struct_mod
Definition inter_struct_mod.F:49
tri7box::nsnfi
type(int_pointer), dimension(:), allocatable nsnfi
Definition tri7box.F:440
spmd_cell_list_exchange
subroutine spmd_cell_list_exchange(ircvfrom, isendto, mode, weight, iad_elem, fr_elem, x, v, ms, temp, kinet, nodnx_sms, itab, intbuf_tab, ipari, nin, inter_struct, sort_comm, nodnx_sms_siz, temp_size, got_preview, component)
Definition spmd_cell_list_exchange.F:44
spmd_cell_size_exchange
subroutine spmd_cell_size_exchange(ircvfrom, isendto, weight, iad_elem, fr_elem, x, v, ms, temp, kinet, nodnx_sms, itab, intbuf_tab, ipari, nin, remote_proc_id, already_send, index_already_send, sort_comm, nodnx_sms_siz, temp_size)
Definition spmd_cell_size_exchange.F:42
spmd_cell_size_exchange_init
subroutine spmd_cell_size_exchange_init(ircvfrom, isendto, ipari, nin, inter_struct, sort_comm)
Definition spmd_cell_size_exchange_init.F:33
spmd_cell_size_post_rcv
subroutine spmd_cell_size_post_rcv(ircvfrom, isendto, nin, sort_comm, itied, component)
Definition spmd_cell_size_post_rcv.F:34
inter_sorting_mod::component_
Definition inter_sorting_mod.F:193
inter_sorting_mod::sorting_comm_type
Definition inter_sorting_mod.F:91
inter_struct_mod::inter_struct_type
Definition inter_struct_mod.F:64