added procedure _rcore_bar