Searched refs:krowp (Results 1 – 1 of 1) sorted by relevance
31 integer :: numtask,i,j,k,m,p,ki,kj,krowp,ierr local124 krowp = arowp(kj)125 if (sub_revmap%pp(i)%p(krowp).ne.0) then192 krowp = arowp(kj)193 if (sub_revmap%pp(i)%p(krowp).ne.0) then195 sub_rowp%pp(i)%p(k) = sub_revmap%pp(i)%p(krowp)306 krowp = sub_rowp2%pp(i)%p(ki)307 kj = sub_map%pp(i)%p(krowp)