From a1d32dc32b779b86116b3d00762ae84bf03f3393 Mon Sep 17 00:00:00 2001 From: schnetter Date: Mon, 27 Oct 2003 15:31:27 +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/EinsteinAnalysis/ADMConstraints/trunk@93 b7a48df3-cbbf-4440-997f-b4b717c9f7fc --- src/ADMConstraints.F | 8 ++------ 1 file 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 -- cgit v1.2.3