1 files changed, 25 insertions, 0 deletions
diff --git a/CarpetExtra/WaveToyExpl/src/finalboundaries.F77 b/CarpetExtra/WaveToyExpl/src/finalboundaries.F77
new file mode 100644
index 000000000..c00960fc3
--- /dev/null
+++ b/CarpetExtra/WaveToyExpl/src/finalboundaries.F77
@@ -0,0 +1,25 @@
+c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyExpl/src/finalboundaries.F77,v 1.2 2003/10/27 15:31:40 schnetter Exp $
+
+#include "cctk.h"
+#include "cctk_Arguments.h"
+#include "cctk_Functions.h"
+#include "cctk_Parameters.h"
+
+      subroutine WaveToyExpl_FinalBoundaries (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,
+     $     "WaveToyExpl::scalarevolve", fbound);
+      if (ierr.ne.0) call CCTK_WARN (0, "internal error")
+      call CartSymGN (ierr, cctkGH, "WaveToyExpl::scalarevolve")
+      if (ierr.ne.0) call CCTK_WARN (0, "internal error")
+      end