Ignore:
Timestamp:
07/08/11 11:21:13 (13 years ago)
Author:
hozdoba
Message:

Gestion du dispatch client

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/impi_interface.f90

    r204 r254  
    176176   END SUBROUTINE xios_mpi_barrier 
    177177 
     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 
    178185END MODULE IMPI_INTERFACE 
Note: See TracChangeset for help on using the changeset viewer.