diff options
| author | schnetter <schnetter@4451c3c6-1034-4891-99ea-21147727ccdf> | 2003-10-27 15:31:28 +0000 |
|---|---|---|
| committer | schnetter <schnetter@4451c3c6-1034-4891-99ea-21147727ccdf> | 2003-10-27 15:31:28 +0000 |
| commit | 66199541b9f7b8be2932c741c431ea2e57e726b1 (patch) | |
| tree | b85d6f69bd50d1934c585a3db67666ca5a643cdb | |
| parent | ce1f1c23c71fd2e540ac6c8bddd4f84a4b7a1360 (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/WaveToyF77/trunk@103 4451c3c6-1034-4891-99ea-21147727ccdf
| -rw-r--r-- | src/WaveToy.F77 | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index f79022f..4254986 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -8,9 +8,9 @@ @@*/ #include "cctk.h" -#include "cctk_Faces.h" -#include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" +#include "cctk_Parameters.h" /*@@ @@ -35,7 +35,7 @@ c Declare variables in argument list DECLARE_CCTK_ARGUMENTS - INTEGER i,j,k,ierr + INTEGER i,j,k INTEGER istart, jstart, kstart, iend, jend, kend CCTK_REAL dx,dy,dz,dt CCTK_REAL dx2,dy2,dz2,dt2 @@ -109,7 +109,6 @@ c ---------------- DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - CCTK_INT Boundary_SelectVarForBC c Local declarations CCTK_INT ierr |