A.B.A = A
B.A.B = B 
A(transposed) = A
B(transposed) = B

##</code><code>##

($flag) = Inverseinv(A) # A being a matrix
if(Inversepinv == 1)
{
    B = A # where B is the transpose of A
}