1 files changed, 23 insertions, 0 deletions
diff --git a/CarpetExtra/WaveToyMoL/src/boundaries.F77 b/CarpetExtra/WaveToyMoL/src/boundaries.F77
new file mode 100644
index 000000000..6b86f6383
--- /dev/null
+++ b/CarpetExtra/WaveToyMoL/src/boundaries.F77
@@ -0,0 +1,23 @@
+c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyMoL/src/boundaries.F77,v 1.3 2004/04/07 17:08:21 schnetter Exp $
+
+#include "cctk.h"
+#include "cctk_Arguments.h"
+#include "cctk_Functions.h"
+#include "cctk_Parameters.h"
+
+      subroutine WaveToyMoL_Boundaries (CCTK_ARGUMENTS)
+      implicit none
+      DECLARE_CCTK_ARGUMENTS
+      DECLARE_CCTK_FUNCTIONS
+      DECLARE_CCTK_PARAMETERS
+      CCTK_INT bndwidth
+      parameter (bndwidth = 1)
+      character fbound*100
+      CCTK_INT  fboundlen
+      integer ierr
+      call CCTK_FortranString (fboundlen, bound, fbound)
+      if (fboundlen.lt.0) call CCTK_WARN (0, "internal error")
+      ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, bndwidth, -1,
+     $     "WaveToyMoL::scalarevolve", fbound);
+      if (ierr.ne.0) call CCTK_WARN (0, "internal error")
+      end