Searched refs:oneck (Results 1 – 1 of 1) sorted by relevance
600 integer,allocatable,dimension(:) :: oneck local604 allocate(oneck(numpe+1))605 oneck = 0634 oneck(p) = oneck(p)+1673 oneck(p) = oneck(p)-1742 if (oneck(k).eq.1) then747 oneck(iabs(afmap(m)))=oneck(iabs(afmap(m)))-1847 deallocate(oneck)