Avoid trying to generate equations for components which are zero by s…

…ymmetry
ianhinder · Mar 9, 2014 · 50a1df8 · 50a1df8
1 parent c7da4d3
commit 50a1df8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Tools/CodeGen/xTensorKranc.m b/Tools/CodeGen/xTensorKranc.m
@@ -265,7 +265,7 @@
    rhsC = Flatten[{ComponentArray[TraceBasisDummy[rhs], inds]}];
 
    (* Pick out the independent components *)
-   rules = krancForm[DeleteDuplicates[Thread[lhsC -> rhsC], #1[[1]] == #2[[1]] &]];
+   rules = krancForm[DeleteDuplicates[Thread[lhsC -> rhsC], #1[[1]] == #2[[1]] &]] /. (0->0) -> Sequence[];
    InfoMessage[InfoFull, "Expanded to: ", Map[InputForm, rules, {2}]];
    Sequence @@ rules
 ];