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)
10       integer,intent(inout) :: c_colm(m+1)
11       integer,intent(in) :: a_rowp(a_colm(m+1)-1)
15       integer      :: itemp(max(m,l))
19       do i=1,m
32       c_colm(m+1) = mnnz
37      &                    c_colm,c_rowp,m,l,n,diagflag)
38       integer,intent(in)                :: m,l,n  local
39       integer,intent(in) :: a_colm(m+1),b_colm(l+1)
40       integer,intent(in) :: c_colm(m+1)
41       integer,intent(inout) :: c_rowp(c_colm(m+1)-1)
42       integer,intent(in) :: a_rowp(a_colm(m+1)-1)
47       integer      :: itemp(max(m,l))
51       do i=1,m
75      &                   m,l,n)
76       integer,intent(in)                :: m,l,n  local
77       integer,intent(in) :: a_colm(m+1),b_colm(l+1)
78       integer,intent(in) :: c_colm(m+1)
79       integer,intent(in) :: c_rowp(c_colm(m+1)-1)
80       integer,intent(in) :: a_rowp(a_colm(m+1)-1)
83       real(kind=8),intent(in) :: a_mtx(a_colm(m+1)-1)
85       real(kind=8),intent(inout) :: c_mtx(c_colm(m+1)-1)
88       integer      :: itemp(max(m,l))
92       do i=1,m
122       integer                        :: i,j,k,m,p,q,r,n,s,p0  local
247          do m=amg_A_colm(level2)%p(i),amg_A_colm(level2)%p(i+1)-1
248             j = amg_A_rowp(level2)%p(m)
249             amg_A_lhs(level2)%p(m,1)=amg_A_lhs(level2)%p(m,1)*