USE MPI ! or the older form: INCLUDE 'mpif.h' MPI_F_SYNC_REG(BUF) <type> BUF(*)
USE mpi_f08 MPI_F_sync_reg(buf) TYPE(*), DIMENSION(..), ASYNCHRONOUS :: buf