get_rank_BLACS Function

  function get_rank_BLACS() result(id)
    integer :: id
    if(.not.blacs_status)stop "get_master_BLACS error: blacs_status=F. call init_BLACS"
    id = p_rank
  end function get_rank_BLACS