From 656b9c64b2ce01a5d40bc0a61a30ec362784cf68 Mon Sep 17 00:00:00 2001
From: schnetter <>
Date: Mon, 27 Oct 2003 14:31:00 +0000
Subject: Change include mechanism for aliased functions in Fortran.  One now
 has to

Change include mechanism for aliased functions in Fortran.  One now has to
#include "cctk_Functions.h" and then use the macro
DECLARE_CCTK_FUNCTIONS.

darcs-hash:20031027143140-07bb3-c89b45361b934b875cad21d4f74b278d9eacdd46.gz
---
 CarpetExtra/SpaceTimeToy/src/InitSymBound.F77 | 3 ++-
 CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77 | 7 ++-----
 2 files changed, 4 insertions(+), 6 deletions(-)

(limited to 'CarpetExtra/SpaceTimeToy')

diff --git a/CarpetExtra/SpaceTimeToy/src/InitSymBound.F77 b/CarpetExtra/SpaceTimeToy/src/InitSymBound.F77
index a18727adb..e245bf248 100644
--- a/CarpetExtra/SpaceTimeToy/src/InitSymBound.F77
+++ b/CarpetExtra/SpaceTimeToy/src/InitSymBound.F77
@@ -1,9 +1,10 @@
 c     -*-Fortran-*-
-c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/src/InitSymBound.F77,v 1.2 2001/03/18 22:37:10 eschnett Exp $
+c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/src/InitSymBound.F77,v 1.3 2003/10/27 15:31:40 schnetter Exp $
 
 #include "cctk.h"
 #include "cctk_Arguments.h"
 #include "cctk_Parameters.h"
+#include "cctk_Functions.h"
       
       subroutine SpaceTimeToy_InitSymBound (CCTK_ARGUMENTS)
       
diff --git a/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77 b/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77
index c1f3f4b0b..d43dcd54f 100644
--- a/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77
+++ b/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77
@@ -1,10 +1,10 @@
 c     -*-Fortran-*-
-c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77,v 1.10 2003/06/18 18:24:30 schnetter Exp $
+c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77,v 1.11 2003/10/27 15:31:40 schnetter Exp $
       
 #include "cctk.h"
-#include "cctk_Faces.h"
 #include "cctk_Arguments.h"
 #include "cctk_Parameters.h"
+#include "cctk_Functions.h"
       
       
       
@@ -206,9 +206,6 @@ c     Evolve
       integer d
       integer ierr
       
-      external Boundary_SelectGroupForBC
-      CCTK_INT Boundary_SelectGroupForBC
-      
       boundary_width = cctk_nghostzones(1)
       do d=1,3
          if (cctk_nghostzones(d) .ne. boundary_width) then
-- 
cgit v1.2.3