7      &                    c_colm,m,l,n)
8       integer,intent(in)                :: m,l,n  local
9       integer,intent(in) :: a_colm(m+1),b_colm(l+1)
12       integer,intent(in) :: b_rowp(b_colm(l+1)-1)
15       integer      :: itemp(max(m,l))
37      &                    c_colm,c_rowp,m,l,n,diagflag)  argument
38       integer,intent(in)                :: m,l,n  local
39       integer,intent(in) :: a_colm(m+1),b_colm(l+1)
43       integer,intent(in) :: b_rowp(b_colm(l+1)-1)
47       integer      :: itemp(max(m,l))
75      &                   m,l,n)  argument
76       integer,intent(in)                :: m,l,n  local
77       integer,intent(in) :: a_colm(m+1),b_colm(l+1)
81       integer,intent(in) :: b_rowp(b_colm(l+1)-1)
84       real(kind=8),intent(in) :: b_mtx(b_colm(l+1)-1)
88       integer      :: itemp(max(m,l))