12 	integer	aa,	b,	c,	e,	i,	k,	n  local
30 		c = col(i)    ! starting point to look for the matching column
31 		n = col(i+1) - c  !length of the list of entries in rowp
37 		    k = sparseloc( row(c), n, ien(e,b) ) + c-1
86         integer aa, b, c, e, i, k, n, n1  local
106           c = col(i)     !Get the mapping from the ith row of lhsk to
108           n = col(i+1) - c   !number of nonzero blocks in the row
113             k = sparseloc( row(c), n, ien(e,b) ) + c-1 
148       integer aa, b, c, e, i, k, n, n1  local
166           c = col(i)     !Get the mapping from the ith row of lhsk to
168           n = col(i+1) - c   !number of nonzero blocks in the row
173             k = sparseloc( row(c), n, ien(e,b) ) + c-1 
202       integer    aa,    b,    c,    e,    i,    k,    n  local
219         c = col(i)
220         n = col(i+1) - c
222             k = sparseloc( row(c), n, ien(e,b) ) + c-1