gistfile1.txt

## make matrix symmetric by copying the upper triangle into the lower
## this should exist somewhere...
function symm!(m::Matrix)
    for i=1:size(m,1)
        for j=i+1:size(m,2)
            m[j,i] = m[i,j]
        end
    end
    m
end

## y = x[i,:]'
function rvec!(y::Array, x::Matrix, i::Int)
    for j=1:size(x,2)
        y[j] = x[i,j]
    end
end