6      &                    b_colm,b_rowp,  argument
9       integer,intent(in) :: a_colm(m+1),b_colm(l+1)  local
12       integer,intent(in) :: b_rowp(b_colm(l+1)-1)
23             do p=b_colm(j),b_colm(j+1)-1
36       subroutine mtx_rowp(a_colm,a_rowp,b_colm,b_rowp,  argument
39       integer,intent(in) :: a_colm(m+1),b_colm(l+1)  local
43       integer,intent(in) :: b_rowp(b_colm(l+1)-1)
59             do p=b_colm(j),b_colm(j+1)-1
73      &                   b_colm,b_rowp,b_mtx,  argument
77       integer,intent(in) :: a_colm(m+1),b_colm(l+1)  local
81       integer,intent(in) :: b_rowp(b_colm(l+1)-1)
84       real(kind=8),intent(in) :: b_mtx(b_colm(l+1)-1)
99             do p = b_colm(j),b_colm(j+1)-1