diff options
| author | schnetter <schnetter@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2003-10-27 15:31:27 +0000 |
|---|---|---|
| committer | schnetter <schnetter@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2003-10-27 15:31:27 +0000 |
| commit | a1d32dc32b779b86116b3d00762ae84bf03f3393 (patch) | |
| tree | 7db12cd75625cf2c1c516972db1022ed31ed25e1 | |
| parent | 2ce27063f4dda5d7afdf9df4d452b3d6c6f803a8 (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/EinsteinAnalysis/ADMConstraints/trunk@93 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
| -rw-r--r-- | src/ADMConstraints.F | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index 23ec87a..8bf3116 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -18,9 +18,9 @@ #include "cctk.h" -#include "cctk_Parameters.h" #include "cctk_Arguments.h" -#include "cctk_Faces.h" +#include "cctk_Functions.h" +#include "cctk_Parameters.h" subroutine ADMConstraints(CCTK_ARGUMENTS) @@ -30,10 +30,6 @@ DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS -c Function aliases. - - CCTK_INT :: Boundary_SelectVarForBC, Boundary_SelectGroupForBC - integer i,j,k integer nx,ny,nz |