! $Header$ #include "cctk.h" module tatmg_bnd_sym interface subroutine MG_BndFlatVI (ierr, cctkGH, vindex) implicit none integer ierr CCTK_POINTER cctkGH integer vindex end subroutine MG_BndFlatVI subroutine MG_BndRobinVI (ierr, cctkGH, finf, decay, vindex, xindex, yindex, zindex, rindex) implicit none integer ierr CCTK_POINTER cctkGH CCTK_REAL finf CCTK_REAL decay integer vindex integer xindex integer yindex integer zindex integer rindex end subroutine MG_BndRobinVI subroutine MG_BndScalarVI (ierr, cctkGH, value, vindex) implicit none integer ierr CCTK_POINTER cctkGH CCTK_REAL value integer vindex end subroutine MG_BndScalarVI subroutine MG_CartSymVI (ierr, cctkGH, vindex) implicit none integer ierr CCTK_POINTER cctkGH integer vindex end subroutine MG_CartSymVI end interface end module tatmg_bnd_sym