15       integer      :: itemp(max(m,l))  local
18       itemp = 0
25                if (itemp(q).ne.i) then
26                    itemp(q)=i
47       integer      :: itemp(max(m,l))  local
50       itemp = 0
55          itemp(i)=i
61                if (itemp(q).ne.i) then
62                    itemp(q)=i
88       integer      :: itemp(max(m,l))  local
94             itemp(c_rowp(k)) = k
101                c_mtx(itemp(q)) = c_mtx(itemp(q)) + rtemp*b_mtx(p)
123       integer,dimension(amg_nshg(level1))  :: itemp  local