diff options
| -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, |