diff options
| author | schnetter <schnetter@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2003-10-27 15:31:28 +0000 |
|---|---|---|
| committer | schnetter <schnetter@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2003-10-27 15:31:28 +0000 |
| commit | ca2f3d28e0b9a410f1279817fd3a9761eaad2c8e (patch) | |
| tree | 52d606448762fffe79c377eaf16139d508ccf63d | |
| parent | d30f50e2384311d5f742d22fe47d5f405692c713 (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.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@58 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
| -rw-r--r-- | src/WaveToy.F90 | 3 |
1 files changed, 1 insertions, 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 |