<<VilGebra`

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

Det[%]