int MPI_Pcontrol(const int level, ...)
USE MPI ! or the older form: INCLUDE 'mpif.h' MPI_PCONTROL(LEVEL) INTEGER LEVEL
USE mpi_f08 MPI_Pcontrol(level) INTEGER, INTENT(IN) :: level