Lines Matching refs:subnei
42 integer,allocatable,dimension(:) :: subcf,subcfrev,subnei local
79 allocate(subnei(numtask))
80 subnei = 0
82 subnei(1) = myrank+1
83 subcfrev(subnei(1))=1
86 subnei(i)=ilwork(itkbeg+3)+1 ! iother+1
87 subcfrev(subnei(i)) = i
95 allocate(subnei(numtask))
98 subnei = 0
126 subnei = 0
130 subnei(p) = subnei(p) + 1
143 deallocate(subnei)