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