Searched refs:neimap (Results 1 – 2 of 2) sorted by relevance
209 integer,allocatable,dimension(:) :: neimap local224 allocate(neimap(numpe))225 neimap = 0237 neimap(iother+1) = 1250 if (neimap(m).eq.0) then ! self or master257 deallocate(neimap)
758 integer,allocatable,dimension(:) :: neimap variable830 allocate(neimap(numtask))837 neimap(i) = -(iother+1)839 neimap(i) = (iother+1)845 flag(isgbeg:isgend) = neimap(i)!iother+1!note*855 deallocate(neimap)