aboutsummaryrefslogtreecommitdiff
path: root/m/McLachlan_BSSN.m
diff options
context:
space:
mode:
authorIan Hinder <ian.hinder@aei.mpg.de>2011-11-20 15:52:31 +0100
committerIan Hinder <ian.hinder@aei.mpg.de>2011-11-20 15:52:31 +0100
commit624f5ed81962c96cd567b84df3a6bad23e54a45b (patch)
treea277a2e36bf777442e2625e289a413d39fbf7cca /m/McLachlan_BSSN.m
parent3e4bb765aaff1776ef3da6840d55b4c417875803 (diff)
Fix inconsistent index positions
No change to generated code
Diffstat (limited to 'm/McLachlan_BSSN.m')
-rw-r--r--m/McLachlan_BSSN.m4
1 files changed, 2 insertions, 2 deletions
diff --git a/m/McLachlan_BSSN.m b/m/McLachlan_BSSN.m
index 8e7dc6d..8b97c74 100644
--- a/m/McLachlan_BSSN.m
+++ b/m/McLachlan_BSSN.m
@@ -799,7 +799,7 @@ RHSRadiativeBoundaryCalc =
em4phi -> IfThen [conformalMethod, phi^2, Exp[-4 phi]],
gu[ua,ub] -> em4phi gtu[ua,ub],
- nn[la] -> normal[la],
+ nn[la] -> Euc[la,lb] normal[ub],
nu[ua] -> gu[ua,ub] nn[lb],
nlen2 -> nu[ua] nn[la],
nlen -> Sqrt[nlen2],
@@ -884,7 +884,7 @@ constraintsCalc =
Gt[ua,lb,lc], Gtl[la,lb,lc], Gtlu[la,lb,uc], Xtn[ua],
e4phi, em4phi,
g[la,lb], detg, gu[ua,ub], ddetg[la], G[ua,lb,lc],
- Rt[la,lb], Rphi[la,lb], R[la,lb], trR, Atm[la,lb],
+ Rt[la,lb], Rphi[la,lb], R[la,lb], trR, Atm[ua,lb],
gK[la,lb,lc], cdphi[la], cdphi2[la,lb],
rho, S[la], fac1, fac2},
Equations ->