Searched refs:sub_nshg (Results 1 – 2 of 2) sorted by relevance
45 type(i1d) :: sub_nnz,sub_nnz2,sub_nshg variable
83 allocate(sub_nshg%p(numtask))97 sub_nshg%p(i) = numseg164 sub_nnz2%p(i) = sub_colm2%pp(i)%p(sub_nshg%p(i)+1)-1272 do j=1,sub_nshg%p(i) ! each line471 deallocate(sub_nshg%p)