From e1e4b192d930c2ff1dc1491813954b8054d2aaeb Mon Sep 17 00:00:00 2001
From: allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52>
Date: Thu, 22 Apr 1999 14:20:56 +0000
Subject: Added registration of coordinates with a name and a direction

CCTK_Warn -> CCTK_WARN


git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@25 c78560ca-4b45-4335-b268-5f3340f3cb52
---
 src/CartGrid3D.F   |  4 ++--
 src/Startup.c      | 15 +++++++++++++++
 src/make.code.defn |  3 ++-
 3 files changed, 19 insertions(+), 3 deletions(-)
 create mode 100644 src/Startup.c

(limited to 'src')

diff --git a/src/CartGrid3D.F b/src/CartGrid3D.F
index 4360dad..cb4ca15 100644
--- a/src/CartGrid3D.F
+++ b/src/CartGrid3D.F
@@ -29,7 +29,7 @@
       iflag = 0  ! Gets set to one if we set a grid
 
       iconv = 2**(convlevel-1)
-
+ 
 c     --------------------------------------------------------------
 c
 c     BYRANGE
@@ -197,7 +197,7 @@ c        Special cases
 c     No grid was set up
 c     ------------------
       if (iflag.ne.1) then
-        call CCTK_Warn(0,"No grid set up in CartGrid3D")
+        call CCTK_WARN(0,"No grid set up in CartGrid3D")
       end if
 
 
diff --git a/src/Startup.c b/src/Startup.c
new file mode 100644
index 0000000..ad5d60a
--- /dev/null
+++ b/src/Startup.c
@@ -0,0 +1,15 @@
+
+#include "cctk.h"
+#include "Coord.h"
+
+void RegisterCartGrid3DCoords()
+{
+
+  CCTK_RegisterCoord("x","grid::x",1);
+  CCTK_RegisterCoord("y","grid::y",2);
+  CCTK_RegisterCoord("z","grid::z",3);
+  CCTK_RegisterCoord("r","grid::r",-1);
+
+}
+
+
diff --git a/src/make.code.defn b/src/make.code.defn
index 247ee70..a29247e 100644
--- a/src/make.code.defn
+++ b/src/make.code.defn
@@ -3,7 +3,8 @@
 
 # Source files in this directory
 SRCS = CartGrid3D.F\
-       ParamCheck.F
+       ParamCheck.F\
+       Startup.c
 
 # Subdirectories containing source files
 SUBDIRS = 
-- 
cgit v1.2.3