diff options
| author | schnetter <schnetter@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2003-10-27 15:31:28 +0000 |
|---|---|---|
| committer | schnetter <schnetter@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2003-10-27 15:31:28 +0000 |
| commit | 4eb86fb0087a2639cac180e5e836d7884f5e8648 (patch) | |
| tree | e36a837dd5a5f42b4890c84d4e7cdc2e358c6935 | |
| parent | 13d2a673a5c70a6a5de6a3fb01b3d0637f00f24e (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/WaveToyF90/trunk@85 f80f6fb6-8356-4fd4-90bc-d84ad503c100
| -rw-r--r-- | src/WaveToy.F | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/WaveToy.F b/src/WaveToy.F index 8738576..6e73ae6 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -8,9 +8,9 @@ @@*/ #include "cctk.h" -#include "cctk_Faces.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" #define BOUNDARY_ERROR if (ierr < 0) call CCTK_WARN(0,"WaveToyF90_Boundaries: Error in boundary routines") @@ -109,7 +109,6 @@ DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - CCTK_INT Boundary_SelectVarForBC integer i integer :: ierr=0 |