Searched defs:mtx_colm (Results 1 – 1 of 1) sorted by relevance
5 subroutine mtx_colm(a_colm,a_rowp, subroutine8 integer,intent(in) :: m,l,n9 integer,intent(in) :: a_colm(m+1),b_colm(l+1)10 integer,intent(inout) :: c_colm(m+1)34 end subroutine!mtx_colm argument