From b90edea69b7d1e1e313c0af91a2f3eeff671c8d9 Mon Sep 17 00:00:00 2001
From: allen <allen@a678b1cf-93e1-4b43-a69d-d43939e66649>
Date: Wed, 10 Nov 1999 09:19:04 +0000
Subject: Copyright statement

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@13 a678b1cf-93e1-4b43-a69d-d43939e66649
---
 src/brillq.F | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/brillq.F b/src/brillq.F
index fb28639..45e9b62 100644
--- a/src/brillq.F
+++ b/src/brillq.F
@@ -87,7 +87,7 @@ C     Get parameters at first call.
 
       end if
 
-      if (rho.lt.0) write(*,*) "Warning: negative rho in brillq:", rho
+      if (rho.lt.0) call CCTK_WARN(1,"Warning: negative rho in brillq:")
 
 C     Calculate q(rho,z) from a choice of forms. Type 0, 1 and 2 are those
 C     of Bruegmann.
@@ -122,8 +122,7 @@ C     smooth "pure quadrupole" q should be.
 
 C     Unknown type for q function.
 
-         write(*,*) "Unknown type of Brill function q."
-         STOP
+         call CCTK_WARN(0,"Unknown type of Brill function q.")
 
       end if
 
-- 
cgit v1.2.3