Allow partial derivative components to be given as positive integers

They are still assumed to be covariant components
ianhinder · Mar 7, 2014 · 3cd00bd · 3cd00bd
1 parent efbd372
commit 3cd00bd
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Tools/CodeGen/xTensorKranc.m b/Tools/CodeGen/xTensorKranc.m
@@ -122,6 +122,7 @@
     pd[-i_?AbstractIndexQ][t_] := nd[PDKrancBasis[{-i, -KrancBasis}][t]];
     pd[t_, -i_?AbstractIndexQ] := nd[PDKrancBasis[{-i, -KrancBasis}][t]];
     pd[t_, i_Integer?Negative] := nd[PDKrancBasis[{-i, -KrancBasis}][t]];
+    pd[t_, i_Integer?Positive] := nd[PDKrancBasis[{i, -KrancBasis}][t]];
 
     (* Distribute the nd wrapper over Plus, e.g. expand
        nd[pd[t[0],0] + pd[t[1],1]] out to nd[pd[t[0],0]] + nd[pd[t[1],1]].