*! Source of lmoremata10.mlib


*! 
*! _mm_colrunsum10.mata
*! version 1.0.1  11jan2008  Ben Jann

version 10.0
mata:

numeric matrix _mm_colrunsum10(numeric matrix A)
{
    //version 10
    real scalar i
    numeric matrix B

    if (cols(A)==1) return(runningsum(A))

    if (isfleeting(A)) {
        for (i=1; i<=cols(A); i++) A[,i] = runningsum(A[,i])
        return(A)
    }
    B = A
    for (i=1; i<=cols(B); i++) B[,i] = runningsum(B[,i])
    return(B)
}

end