diff options
author | schnetter <schnetter@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2003-10-27 15:31:28 +0000 |
---|---|---|
committer | schnetter <schnetter@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2003-10-27 15:31:28 +0000 |
commit | 4191a735e35a09c8450c5529a33496d040411a6a (patch) | |
tree | 4281d4f35c782bc4b6e728cadbdf5e44918fa87c | |
parent | 91c8ead8d28b68ab8bac0ffc9ce1fa09f75adf6d (diff) |
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
-rw-r--r-- | src/brilldata.F | 1 | ||||
-rw-r--r-- | src/brillq.F | 1 | ||||
-rw-r--r-- | src/finishbrilldata.F | 1 | ||||
-rw-r--r-- | src/setupbrilldata3D.F | 1 |
4 files changed, 4 insertions, 0 deletions
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) |