diff options
author | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2001-09-17 17:25:18 +0000 |
---|---|---|
committer | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2001-09-17 17:25:18 +0000 |
commit | 684e43484c8e17d411b0d791711b2fa08d4138b3 (patch) | |
tree | 1d351d6b975ca869d2c68d04c1df47a593b4d18e /src/maple/coeffs.maple | |
parent | df3041f889b89dc6832a6ab367f7c1b054802d7f (diff) |
some small portability mods (run through mint)
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinderDirect/trunk@355 f88db872-0e4f-0410-b76b-b9085cfa78c5
Diffstat (limited to 'src/maple/coeffs.maple')
-rw-r--r-- | src/maple/coeffs.maple | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/maple/coeffs.maple b/src/maple/coeffs.maple index de07b8e..123a494 100644 --- a/src/maple/coeffs.maple +++ b/src/maple/coeffs.maple @@ -16,12 +16,13 @@ setup_coeff_gfas := proc() global @include "coords.minc", -@include "coeffs.minc"; +@include "coeffs.minc", +@include "gfa.minc"; # 1st ($X^u_i$) and 2nd ($X^u_{ij}$) partial derivs # of (r,rho,sigma) wrt (xx,yy,zz) -make_gfa('X_ud', {inert}, [A_min..N, 1..N], none); -make_gfa('X_udd', {inert}, [A_min..N, 1..N, 1..N], symmetric3_23); +make_gfa('X_ud', {inert}, [1..N_ang, 1..N], none); +make_gfa('X_udd', {inert}, [1..N_ang, 1..N, 1..N], symmetric3_23); NULL; end proc; |