equilibrate function

Equilibration of a rectangular or symmetric matrix