1 files changed, 19 insertions, 0 deletions
diff --git a/CarpetExtra/WaveToyFO/src/rhsboundaries.F77 b/CarpetExtra/WaveToyFO/src/rhsboundaries.F77
new file mode 100644
index 000000000..1326003a3
--- /dev/null
+++ b/CarpetExtra/WaveToyFO/src/rhsboundaries.F77
@@ -0,0 +1,19 @@
+c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyFO/src/rhsboundaries.F77,v 1.1 2004/05/06 14:21:18 schnetter Exp $
+
+#include "cctk.h"
+#include "cctk_Arguments.h"
+#include "cctk_Functions.h"
+#include "cctk_Parameters.h"
+
+      subroutine WaveToyFO_RHSBoundaries (CCTK_ARGUMENTS)
+      implicit none
+      DECLARE_CCTK_ARGUMENTS
+      DECLARE_CCTK_FUNCTIONS
+      DECLARE_CCTK_PARAMETERS
+      CCTK_INT bndwidth
+      parameter (bndwidth = 1)
+      integer ierr
+      ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, bndwidth, -1,
+     $     "WaveToyFO::scalarevolvedot", "none");
+      if (ierr.ne.0) call CCTK_WARN (0, "internal error")
+      end