- Timestamp:
- Jul 24, 2024, 6:46:45 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/misc/lmdz_mpi_wrappers.F90
r5103 r5119 14 14 15 15 SUBROUTINE MPI_ALLGATHER(SENDBUF, SENDCOUNT, SENDTYPE, RECVBUF, RECVCOUNT, RECVTYPE, COMM, IERROR) 16 USE ISO_C_BINDING 16 USE ISO_C_BINDING, ONLY: C_PTR 17 17 IMPLICIT NONE 18 18 TYPE(C_PTR),VALUE :: SENDBUF , RECVBUF … … 41 41 42 42 SUBROUTINE MPI_ISEND(BUF, COUNT, DATATYPE, DEST, TAG, COMM, REQUEST, IERROR) 43 USE ISO_C_BINDING 43 USE ISO_C_BINDING, ONLY: C_PTR 44 44 IMPLICIT NONE 45 45 TYPE(C_PTR),VALUE :: BUF … … 50 50 51 51 SUBROUTINE MPI_ISSEND(BUF, COUNT, DATATYPE, DEST, TAG, COMM, REQUEST, IERROR) 52 USE ISO_C_BINDING 52 USE ISO_C_BINDING, ONLY: C_PTR 53 53 IMPLICIT NONE 54 54 TYPE(C_PTR),VALUE :: BUF … … 58 58 59 59 SUBROUTINE MPI_IRECV(BUF, COUNT, DATATYPE, SOURCE, TAG, COMM, REQUEST, IERROR) 60 USE ISO_C_BINDING 60 USE ISO_C_BINDING, ONLY: C_PTR 61 61 IMPLICIT NONE 62 62 TYPE(C_PTR),VALUE :: BUF … … 74 74 75 75 SUBROUTINE MPI_GATHERV(SENDBUF, SENDCOUNT, SENDTYPE, RECVBUF, RECVCOUNTS, DISPLS, RECVTYPE, ROOT, COMM, IERROR) 76 USE ISO_C_BINDING 76 USE ISO_C_BINDING, ONLY: C_PTR 77 77 IMPLICIT NONE 78 78 TYPE(C_PTR),VALUE :: SENDBUF, RECVBUF … … 83 83 84 84 SUBROUTINE MPI_BCAST(BUFFER, COUNT, DATATYPE, ROOT, COMM, IERROR) 85 USE ISO_C_BINDING 85 USE ISO_C_BINDING, ONLY: C_PTR 86 86 IMPLICIT NONE 87 87 TYPE(C_PTR),VALUE :: BUFFER … … 91 91 92 92 SUBROUTINE MPI_ALLREDUCE(SENDBUF, RECVBUF, COUNT, DATATYPE, OP, COMM, IERROR) 93 USE ISO_C_BINDING 93 USE ISO_C_BINDING, ONLY: C_PTR 94 94 IMPLICIT NONE 95 95 TYPE(C_PTR),VALUE :: SENDBUF, RECVBUF … … 113 113 114 114 SUBROUTINE MPI_SCATTERV(SENDBUF, SENDCOUNTS, DISPLS, SENDTYPE, RECVBUF, RECVCOUNT, RECVTYPE, ROOT, COMM, IERROR) 115 USE ISO_C_BINDING 115 USE ISO_C_BINDING, ONLY: C_PTR 116 116 IMPLICIT NONE 117 117 TYPE(C_PTR),VALUE :: SENDBUF, RECVBUF … … 122 122 123 123 SUBROUTINE MPI_REDUCE(SENDBUF, RECVBUF, COUNT, DATATYPE, OP, ROOT, COMM, IERROR) 124 USE ISO_C_BINDING 124 USE ISO_C_BINDING, ONLY: C_PTR 125 125 IMPLICIT NONE 126 126 TYPE(C_PTR),VALUE :: SENDBUF, RECVBUF … … 130 130 131 131 SUBROUTINE MPI_RECV(BUF, COUNT, DATATYPE, SOURCE, TAG, COMM, STATUS, IERROR) 132 USE ISO_C_BINDING 132 USE ISO_C_BINDING, ONLY: C_PTR 133 133 USE lmdz_mpi, ONLY: MPI_STATUS_SIZE 134 134 IMPLICIT NONE … … 140 140 141 141 SUBROUTINE MPI_SEND(BUF, COUNT, DATATYPE, DEST, TAG, COMM, IERROR) 142 USE ISO_C_BINDING 142 USE ISO_C_BINDING, ONLY: C_PTR 143 143 IMPLICIT NONE 144 144 TYPE(C_PTR),VALUE :: BUF … … 155 155 156 156 SUBROUTINE MPI_GATHER(SENDBUF, SENDCOUNT, SENDTYPE, RECVBUF, RECVCOUNT, RECVTYPE, ROOT, COMM, IERROR) 157 USE ISO_C_BINDING 157 USE ISO_C_BINDING, ONLY: C_PTR 158 158 IMPLICIT NONE 159 159 TYPE(C_PTR),VALUE :: SENDBUF, RECVBUF
Note: See TracChangeset
for help on using the changeset viewer.