rb_axi eample with more than 1 MPI rank

rb_axi example hangs with more than 1 MPI rank

global operator glsc3 is called only by rank 0

```
if (nid.eq.0) then
         open (unit=12,file='ops/buxt')
         do j=0,nb
         do i=1,nb
            write (12,*) glsc3(ub(1,i),tb(1,j,1),bm1,nv)
```
