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