OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
spmd_gather_int.F File Reference
#include "implicit_f.inc"
#include "spmd.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine spmd_gather_int (sendbuf, recvbuf, proc, send_size, rcv_size)

Function/Subroutine Documentation

◆ spmd_gather_int()

subroutine spmd_gather_int ( integer, dimension(send_size), intent(in) sendbuf,
integer, dimension(rcv_size), intent(out) recvbuf,
integer, intent(in) proc,
integer, intent(in) send_size,
integer, intent(in) rcv_size )

Definition at line 33 of file spmd_gather_int.F.

34C-----------------------------------------------
35C I m p l i c i t T y p e s
36C-----------------------------------------------
37 USE spmd_comm_world_mod, ONLY : spmd_comm_world
38#include "implicit_f.inc"
39C-----------------------------------------------------------------
40C M e s s a g e P a s s i n g
41C-----------------------------------------------
42#include "spmd.inc"
43C-----------------------------------------------
44C D u m m y A r g u m e n t s
45C-----------------------------------------------
46 INTEGER, INTENT(in) :: SEND_SIZE
47 INTEGER, INTENT(in) :: PROC
48 INTEGER, INTENT(in) :: RCV_SIZE
49 INTEGER, DIMENSION(SEND_SIZE), INTENT(in) :: SENDBUF
50 INTEGER, DIMENSION(RCV_SIZE), INTENT(out) :: RECVBUF
51
52#ifdef MPI
53C-----------------------------------------------
54C L o c a l V a r i a b l e s
55C-----------------------------------------------
56 INTEGER :: error
57! ----------------------------------------
58
59! ------------------
60! mpi comm gahter on processor PROC
61 CALL mpi_gather(sendbuf,send_size,mpi_integer,
62 . recvbuf,send_size,mpi_integer,
63 . proc,spmd_comm_world,error)
64! ------------------
65
66#else
67 recvbuf = 0
68#endif
69 RETURN
subroutine mpi_gather(sendbuf, cnt, datatype, recvbuf, reccnt, rectype, root, comm, ierr)
Definition mpi.f:56