use iso_c_binding
BEGIN_PROVIDER [integer(C_SIZE_T), mpiid]
BEGIN_DOC
! simply store the mpiid for pinting
END_DOC
END_PROVIDER