From 4191a735e35a09c8450c5529a33496d040411a6a Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@a678b1cf-93e1-4b43-a69d-d43939e66649>
Date: Mon, 27 Oct 2003 15:31:28 +0000
Subject: Change include mechanism for aliased functions in Fortran.  One now
 has to #include "cctk_Functions.h" and then use the macro
 DECLARE_CCTK_FUNCTIONS.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@91 a678b1cf-93e1-4b43-a69d-d43939e66649
---
 src/brilldata.F        | 1 +
 src/brillq.F           | 1 +
 src/finishbrilldata.F  | 1 +
 src/setupbrilldata3D.F | 1 +
 4 files changed, 4 insertions(+)

diff --git a/src/brilldata.F b/src/brilldata.F
index e38afaa..4a9a6d2 100644
--- a/src/brilldata.F
+++ b/src/brilldata.F
@@ -11,6 +11,7 @@
 #include "cctk.h" 
 #include "cctk_Parameters.h"
 #include "cctk_Arguments.h"
+#include "cctk_Functions.h"
 
 #include "CactusElliptic/EllBase/src/EllBase.h"
 
diff --git a/src/brillq.F b/src/brillq.F
index df6a65d..c3e8d6d 100644
--- a/src/brillq.F
+++ b/src/brillq.F
@@ -10,6 +10,7 @@
 
 #include "cctk.h" 
 #include "cctk_Parameters.h"
+#include "cctk_Functions.h"
 
       function brillq(rho,z,phi)
 
diff --git a/src/finishbrilldata.F b/src/finishbrilldata.F
index bd13c79..d2ecd1f 100644
--- a/src/finishbrilldata.F
+++ b/src/finishbrilldata.F
@@ -11,6 +11,7 @@
 #include "cctk.h" 
 #include "cctk_Parameters.h"
 #include "cctk_Arguments.h"
+#include "cctk_Functions.h"
 
       subroutine IDBrillData_Finish(CCTK_ARGUMENTS)
 
diff --git a/src/setupbrilldata3D.F b/src/setupbrilldata3D.F
index b77d886..7fb50a3 100644
--- a/src/setupbrilldata3D.F
+++ b/src/setupbrilldata3D.F
@@ -11,6 +11,7 @@
 #include "cctk.h" 
 #include "cctk_Parameters.h"
 #include "cctk_Arguments.h"
+#include "cctk_Functions.h"
 
       subroutine setupbrilldata3D(CCTK_ARGUMENTS)
 
-- 
cgit v1.2.3