function parsave(fname, A,Am)
save(fname, 'A', 'Am')
end

