7      &                    c_colm,m,l,n)  argument
10       integer,intent(inout) :: c_colm(m+1)  local
20          c_colm(i) = mnnz
32       c_colm(m+1) = mnnz
37      &                    c_colm,c_rowp,m,l,n,diagflag)  argument
40       integer,intent(in) :: c_colm(m+1)  local
41       integer,intent(inout) :: c_rowp(c_colm(m+1)-1)
74      &                   c_colm,c_rowp,c_mtx,  argument
78       integer,intent(in) :: c_colm(m+1)  local
79       integer,intent(in) :: c_rowp(c_colm(m+1)-1)
85       real(kind=8),intent(inout) :: c_mtx(c_colm(m+1)-1)
93          do k=c_colm(i),c_colm(i+1)-1