diff options
author | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2002-04-21 16:31:38 +0000 |
---|---|---|
committer | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2002-04-21 16:31:38 +0000 |
commit | 5b7788875135b2b4c497a23dc395c16bf07a8b28 (patch) | |
tree | eb8d5ed937927095b01a84d943b331a1c32b035e /src/gr/horizon.maple | |
parent | fb80d997fa2376d4ef247d62ba7d5b81c35508ac (diff) |
glue code to actually compute H(h)
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinderDirect/trunk@548 f88db872-0e4f-0410-b76b-b9085cfa78c5
Diffstat (limited to 'src/gr/horizon.maple')
-rw-r--r-- | src/gr/horizon.maple | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/gr/horizon.maple b/src/gr/horizon.maple index 86bc9cf..aade32f 100644 --- a/src/gr/horizon.maple +++ b/src/gr/horizon.maple @@ -163,7 +163,7 @@ HD__fnd := msum('g_uu[i,j]*s_d__fnd[i]*s_d__fnd[j]', 'i'=1..N, 'j'=1..N); H__fnd := HA__fnd/HD__fnd^(3/2) + HB__fnd/HD__fnd^(1/2) + HC__fnd/HD__fnd - K; if (cg_flag) - then codegen2(H__fnd, 'H', "cg/horizon.c"); + then codegen2(H__fnd, 'H', "cg/horizon_function.c"); fi; NULL; |