1      subroutine argos_space_gtlocal(ibbl,local,lbbl)
2c
3      implicit none
4c
5#include "argos_space_common.fh"
6#include "global.fh"
7c
8      integer ibbl
9      logical local
10      integer lbbl(mbbl,mbb2)
11c
12      local=lbbl(ibbl,1).eq.me
13c
14      return
15      end
16c $Id$
17