From ca2f3d28e0b9a410f1279817fd3a9761eaad2c8e Mon Sep 17 00:00:00 2001 From: schnetter 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.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@58 daab82bb-f315-4ad1-b6d0-9353ff8b6e27 --- src/WaveToy.F90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/WaveToy.F90 b/src/WaveToy.F90 index 12c3df7..47cf06a 100644 --- a/src/WaveToy.F90 +++ b/src/WaveToy.F90 @@ -8,9 +8,9 @@ @@*/ #include "cctk.h" -#include "cctk_Faces.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" /*@@ @@ -112,7 +112,6 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - CCTK_INT Boundary_SelectVarForBC CCTK_INT :: ierr=0 -- cgit v1.2.3