Fix sign in q_mcs and h_mcs

1 files changed, 2 insertions, 2 deletions

diff --git a/setup.mac b/setup.mac
index 1c4483a..2c210e4 100644
--- a/setup.mac
+++ b/setup.mac
@@ -83,7 +83,7 @@ for i : 3 thru 4 do for j : 3 thru 4 do for k : 3 thru 4 do (
   h_mcs[i, j, k] : sum(uh_AB[k,C]*(
       cdiff(h_AB[j, C], i)
       + cdiff(h_AB[i, C], j)
-      + cdiff(h_AB[i, j], C))/2, C, 3, 4));
+      - cdiff(h_AB[i, j], C))/2, C, 3, 4));
 
 /* Riemann tensor of 2-sphere */
 for i : 3 thru 4 do for j : 3 thru 4 do for k : 3 thru 4 do for l : 3 thru 4 do (
@@ -119,6 +119,6 @@ for i : 3 thru 4 do for j : 3 thru 4 do for k : 3 thru 4 do (
   q_mcs[i, j, k] : sum(uq_AB[k,C]*(
       cdiff(q_AB[j, C], i)
       + cdiff(q_AB[i, C], j)
-      + cdiff(q_AB[i, j], C))/2, C, 3, 4));
+      - cdiff(q_AB[i, j], C))/2, C, 3, 4));
 
 print("Setup done!");