Changeset 254 for XMLIO_V2/dev/dev_rv/src/xmlio/fortran
- Timestamp:
- 07/08/11 11:21:13 (13 years ago)
- Location:
- XMLIO_V2/dev/dev_rv/src/xmlio/fortran
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_V2/dev/dev_rv/src/xmlio/fortran/impi_interface.f90
r204 r254 176 176 END SUBROUTINE xios_mpi_barrier 177 177 178 ! Collecte de données et rediffusion 179 SUBROUTINE xios_mpi_allgather(sendbuf, sendcount, recvbuf, recvcount, comm, ierror) BIND (C, NAME ="mpi_allgather") 180 INTEGER (kind = C_INT), DIMENSION(*) :: sendbuf, recvbuf 181 INTEGER (kind = C_INT) :: sendcount, recvcount, comm, ierror 182 CALL MPI_ALLGATHER(sendbuf, sendcount, MPI_INTEGER, recvbuf, recvcount, MPI_INTEGER, comm, ierror) 183 END SUBROUTINE xios_mpi_allgather 184 178 185 END MODULE IMPI_INTERFACE -
XMLIO_V2/dev/dev_rv/src/xmlio/fortran/impi_interface.hpp
r204 r254 80 80 void mpi_barrier(int * comm, int * err); 81 81 82 /// Collecte de données et rediffusion /// 83 void mpi_allgather(int sendbuf[], int * sendcount, int recvbuf[], int * recvcount, int * comm, int * ierror); 84 82 85 #ifdef __cplusplus 83 86 }
Note: See TracChangeset
for help on using the changeset viewer.