From 66199541b9f7b8be2932c741c431ea2e57e726b1 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@4451c3c6-1034-4891-99ea-21147727ccdf>
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/WaveToyF77/trunk@103 4451c3c6-1034-4891-99ea-21147727ccdf
---
 src/WaveToy.F77 | 7 +++----
 1 file 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
-- 
cgit v1.2.3