Searched refs:Prowp (Results 1 – 1 of 1) sorted by relevance
51 type(i2dd) :: Prowp local267 allocate(Prowp%pp(nshg))293 kj = Prowp%pp(ki)%p(k)299 deallocate(Prowp%pp(ki)%p)328 allocate(Prowp%pp(ki)%p(rownnz))332 Prowp%pp(ki)%p(k) = kj345 if (Prowp%pp(ki)%p(gi).gt.Prowp%pp(ki)%p(gj)) then346 gk = Prowp%pp(ki)%p(gj)347 Prowp%pp(ki)%p(gj) = Prowp%pp(ki)%p(gi)348 Prowp%pp(ki)%p(gi) = gk[all …]