Searched refs:subnei (Results 1 – 2 of 2) sorted by relevance
151 & :: subcfstop,subnnz,subcf,subcfrev,subnei local165 allocate(subnei(numtask))166 subnei = 0168 subnei(1) = myrank+1169 subcfrev(subnei(1))=1172 subnei(i)=ilwork(itkbeg+3)+1173 subcfrev(subnei(i)) = i180 allocate(subnei(numtask))215 p = subnei(i)263 deallocate(subnei)
42 integer,allocatable,dimension(:) :: subcf,subcfrev,subnei local79 allocate(subnei(numtask))80 subnei = 082 subnei(1) = myrank+183 subcfrev(subnei(1))=186 subnei(i)=ilwork(itkbeg+3)+1 ! iother+187 subcfrev(subnei(i)) = i95 allocate(subnei(numtask))98 subnei = 0126 subnei = 0[all …]