Reorder symmetric matrix in R

Question

Suppose I have a symmetric matrix such as the one below(borrowed).

    A   B   C   D   E   F   G   H   I   J   K   L   M   N
A       0   0   50  50  0   0   5