KTH framework for Nek5000 toolboxes; testing version  0.0.1
comm_mpi_tool.f
Go to the documentation of this file.
1 
7 !=======================================================================
16  subroutine comm_ivglrsum(out,in,nl)
17  implicit none
18 
19  include 'mpif.h'
20 
21  integer nid, np, nekcomm,nekgroup,nekreal
22  common /nekmpi/ nid,np,nekcomm,nekgroup,nekreal
23 
24  ! argument list
25  integer nl
26  integer out(nl),in(nl)
27 
28  ! local varaibles
29  integer ierr
30 !-----------------------------------------------------------------------
31  call mpi_scan(in,out,nl,mpi_integer,mpi_sum,nekcomm,ierr)
32 
33  return
34  end subroutine
35 !=======================================================================
44  subroutine comm_ibcastn(buf,nl,sid)
45  implicit none
46 
47  include 'mpif.h'
48 
49  integer nid, np, nekcomm,nekgroup,nekreal
50  common /nekmpi/ nid,np,nekcomm,nekgroup,nekreal
51 
52  ! argument list
53  integer nl,sid
54  integer buf(nl)
55 
56  ! local varaibles
57  integer ierr
58 !-----------------------------------------------------------------------
59  call mpi_bcast (buf,nl,mpi_integer,sid,nekcomm,ierr)
60 
61  return
62  end subroutine
63 !=======================================================================
comm_ibcastn
subroutine comm_ibcastn(buf, nl, sid)
Broadcast integer array from specified process.
Definition: comm_mpi_tool.f:45
comm_ivglrsum
subroutine comm_ivglrsum(out, in, nl)
Global MPI scan for integer array.
Definition: comm_mpi_tool.f:17
mpi_scan
subroutine mpi_scan(data1, data2, n, datatype, operation, comm, ierror)
Definition: mpi_dummy.f:4
mpi_bcast
subroutine mpi_bcast(data, n, datatype, node, comm, ierror)
Definition: mpi_dummy.f:213