From 852f4e81081c66ea203214a84b83e516ff1a82fd Mon Sep 17 00:00:00 2001
From: eschnett <eschnett@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129>
Date: Wed, 30 Oct 2013 15:17:55 +0000
Subject: Abort on error

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

diff --git a/src/spin_integrand3D.F b/src/spin_integrand3D.F
index 7f93a0d..c2ced50 100644
--- a/src/spin_integrand3D.F
+++ b/src/spin_integrand3D.F
@@ -60,7 +60,7 @@ c     ------------------------------------------------------------------------
          ip = 1
 
       CASE DEFAULT
-         WRITE(*,*) "This value of Psi_power is not supported"
+         CALL CCTK_ERROR("This value of Psi_power is not supported")
 
       END SELECT   
       
-- 
cgit v1.2.3