Lines Matching refs:j

42           do j = 1, nshl
44               rlocal(:,i,j) = global(ien(:,j),i)
73           do j = 1, nshl
76                 global(ien(nel,j),i) = global(ien(nel,j),i) 
77      &                               + rlocal(nel,i,j)
102           do j = 1, nshl
105                 global(ien(nel,j),i) = rlocal(nel,i,j)
167           do j = 1, nshl
168               rlocal(:,j) = global(ien(:,j))
196           do j = 1, nshl
198                 global(ien(nel,j)) = global(ien(nel,j)) 
199      &               + rlocal(nel,j)
223           do j = 1, nshl
225                 global(ien(nel,j)) = rlocal(nel,j)