diff options
author | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2002-07-16 10:02:29 +0000 |
---|---|---|
committer | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2002-07-16 10:02:29 +0000 |
commit | e92069ae0dcf1cec247fc9fe7519a5946a0d4f66 (patch) | |
tree | 29f6d1d437c8e2cbd5ef8344ebd49d4f1b316377 /src/gr/horizon.maple | |
parent | c0fea6ff486fe45a24f26df8cbb29926a434b500 (diff) |
fix syntax error bug
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinderDirect/trunk@623 f88db872-0e4f-0410-b76b-b9085cfa78c5
Diffstat (limited to 'src/gr/horizon.maple')
-rw-r--r-- | src/gr/horizon.maple | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/gr/horizon.maple b/src/gr/horizon.maple index 0707af4..c28611b 100644 --- a/src/gr/horizon.maple +++ b/src/gr/horizon.maple @@ -257,10 +257,10 @@ assert_fnd_exists(g_uu); assert_fnd_exists(K_uu); assert_fnd_exists(partial_d_ln_sqrt_g); assert_fnd_exists(partial_d_g_uu); -assert_fnd_exists(HA) -assert_fnd_exists(HB) -assert_fnd_exists(HC) -assert_fnd_exists(HD) +assert_fnd_exists(HA); +assert_fnd_exists(HB); +assert_fnd_exists(HC); +assert_fnd_exists(HD); # Jacobian coefficients of H[ABCD] and H wrt Diff(h,y_rs[u]) for u from 1 to N_ang @@ -298,6 +298,7 @@ assert_fnd_exists(HD) := + partial_HA_wrt_partial_dd_h__fnd[u,v] / HD^(3/2) + partial_HB_wrt_partial_dd_h__fnd[u,v] / HD^(1/2) end do; + end do; if (cg_flag) then codegen2([partial_H_wrt_partial_d_h__fnd, |