3      1			             row,	col)  argument
9 	integer	ien(npro,nshl),	col(nshg+1), row(nshg*nnz)  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
69      1			             row,	col)  argument
82         integer	ien(npro,nshl),	col(nshg+1), row(nnz*nshg)  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
132      &                              lhsk, row,    col)  argument
145       integer    ien(npro,nshl),    col(nshg+1), row(nnz*nshg)  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
195      1                         row,    col)  argument
199       integer    ien(npro,nshl),    col(nshg+1), row(nshg*nnz)  local
219         c = col(i)
220         n = col(i+1) - c