<<VilGebra`

A=(({{3b, 0, 0}, {-c, -c, -a}, {a, -c, 0}}));
Det[A]
IntercambiaFila[A,1,2]
IntercambiaFila[%,1,3]
MatrixForm[%.Transpose[%]]
Det[%]