Searched refs:sub_revmap (Results 1 – 2 of 2) sorted by relevance
73 allocate(sub_revmap%pp(numtask))100 allocate(sub_revmap%pp(i)%p(nshg))103 sub_revmap%pp(i)%p = 0109 sub_revmap%pp(i)%p(k) = j125 if (sub_revmap%pp(i)%p(krowp).ne.0) then193 if (sub_revmap%pp(i)%p(krowp).ne.0) then195 sub_rowp%pp(i)%p(k) = sub_revmap%pp(i)%p(krowp)455 deallocate(sub_revmap%pp(i)%p)467 deallocate(sub_revmap%pp)
42 type(i2dd) :: sub_map,sub_revmap,sub_rowpmap variable