1 | integer derivedtype, ... |
2 | call MPI_TYPE_CONTIGUOUS(10, MPI_REAL, derivedtype, ierr) |
3 | call MPI_TYPE_COMMIT(derivedtype, ierr) |
4 | call MPI_SEND(data, 1, derivedtype, dest,tag, MPI_COMM_WORLD, ierr) |
5 | call MPI_TYPE_FREE(derivedtype, ierr) |
6 | is equivalent to simpler single call |
7 | call MPI_SEND(data, 10, MPI_REAL, dest, tag, MPI_COMM_WORLD, ierr) |
8 | and each sends 10 contiguous real values at location data to process dest |