From f90adb469b14338e4428f1a22d13d171e052317c Mon Sep 17 00:00:00 2001
From: allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129>
Date: Wed, 1 Dec 1999 16:08:21 +0000
Subject: Fixing bug in choosing spin output

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@7 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
---
 src/D3_to_D2.F | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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,
-- 
cgit v1.2.3