[Commits] [svn:einsteintoolkit] Extract/trunk/src/ (Rev. 127)

[schnetter at cct.lsu.edu]

User: eschnett
Date: 2013/10/30 10:17 AM

Modified:
 /trunk/src/
  spin_integrand3D.F

Log:
 Abort on error

File Changes:

Directory: /trunk/src/
======================

File [modified]: spin_integrand3D.F
Delta lines: +1 -1
===================================================================
--- trunk/src/spin_integrand3D.F	2013-05-27 22:31:52 UTC (rev 126)
+++ trunk/src/spin_integrand3D.F	2013-10-30 15:17:55 UTC (rev 127)
@@ -60,7 +60,7 @@
          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