Only use characters for indices which aren't used elsewhere

ianhinder · Mar 6, 2014 · 85c8df8 · 85c8df8
1 parent 726844f
commit 85c8df8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Tools/CodeGen/xTensorKranc.m b/Tools/CodeGen/xTensorKranc.m
@@ -31,7 +31,7 @@
 Euc::usage = "Euc[i, j] represents the Euclidean tensor which is 1 if i=j, and 0 otherwise.";
 Eps::usage = "Eps[i, j, k] represents the Levi-Civita alternating tensor";
 
-$KrancIndices = Symbol /@ CharacterRange["a", "q"];
+$KrancIndices = Symbol /@ Complement[CharacterRange["a", "z"], {"h", "r", "x", "y", "z"}];
 Do[
   Evaluate[Symbol["l"<>ToString[ind]]] = -ind;
   Evaluate[Symbol["u"<>ToString[ind]]] = ind;