diff options
| author | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 1999-12-01 16:08:21 +0000 |
|---|---|---|
| committer | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 1999-12-01 16:08:21 +0000 |
| commit | f90adb469b14338e4428f1a22d13d171e052317c (patch) | |
| tree | 7b98d13cc5bf7921f6b6bc9bba2d61b3b1729370 | |
| parent | 661c56c847f4334feb53fd8d94551b2ab1efdb9a (diff) | |
Fixing bug in choosing spin output
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@7 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
| -rw-r--r-- | src/D3_to_D2.F | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/D3_to_D2.F b/src/D3_to_D2.F index 884f8b8..05e1f57 100644 --- a/src/D3_to_D2.F +++ b/src/D3_to_D2.F @@ -325,7 +325,7 @@ c --------------------------------- c Calculate integrands for spin c ----------------------------- - IF (do_momentum==1) THEN + IF (do_spin==1) THEN CALL spin_integrand3D(origin,Dx,Dy,Dz,x,y,z, & gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, |