c     $Header:$

#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