Searched refs:Pcolm (Results 1 – 1 of 1) sorted by relevance
50 integer,dimension(nshg+1) :: Pcolm local269 Pcolm = 0292 do k=1,Pcolm(ki)298 rownnz = rownnz+Pcolm(ki)327 Pcolm(ki) = rownnz369 rownnz = rownnz+Pcolm(i)390 do j=1,Pcolm(i)