1         subroutine local (global, rlocal, ientmp, n, code)  argument
23         dimension global(nshg,n),           rlocal(npro,nshl,n),
46               rlocal(:,i,j) = global(ien(:,i),j)
71      &                               + rlocal(nel,i,j)
96                 global(ien(nel,i),j) = rlocal(nel,i,j)
114         subroutine localx (global, rlocal, ien, n, code)  argument
136         dimension global(numnp,n),           rlocal(npro,nenl,n),
149               rlocal(:,i,j) = global(ien(:,i),j)
175      &                               + rlocal(nel,i,j)
344         subroutine localSum (global, rlocal, ientmp, nHits, n)  argument
356         dimension global(nshg,n),           rlocal(npro,nshl,n),
374                  global(idg,j) = global(idg,j) + rlocal(nel,i,j)
389       subroutine localb (global, rlocal, ientmp, n, code)  argument
411         dimension global(nshg,n),           rlocal(npro,nshlb,n),
438               rlocal(:,i,j) = global(ien(:,i),j)
468      &                               + rlocal(nel,i,j)
494                 global(ien(nel,i),j) = rlocal(nel,i,j)