From 6259b5b14780a2f00f1893712e12a40f1c1287ac Mon Sep 17 00:00:00 2001
From: lanfer <lanfer@4451c3c6-1034-4891-99ea-21147727ccdf>
Date: Tue, 18 Jul 2000 14:15:01 +0000
Subject: support for Robin boundary conditions in Wavetoy - for testing of
 Robin only

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@56 4451c3c6-1034-4891-99ea-21147727ccdf
---
 param.ccl       | 1 +
 src/WaveToy.F77 | 3 +++
 2 files changed, 4 insertions(+)

diff --git a/param.ccl b/param.ccl
index 4c545dc..4d915b8 100644
--- a/param.ccl
+++ b/param.ccl
@@ -8,6 +8,7 @@ KEYWORD bound "Type of boundary condition to use"
   "none"      :: "No boundary condition"
   "flat"      :: "Flat boundary condition"
   "radiation" :: "Radiation boundary condition"
+  "robin"     :: "Robin boundary condition"
   "zero"      :: "Zero boundary condition"
 } "none"
 
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77
index 836f2d5..9658beb 100644
--- a/src/WaveToy.F77
+++ b/src/WaveToy.F77
@@ -137,6 +137,9 @@ c     -----------------------------------
       else if (CCTK_Equals(bound,"radiation").eq.1) then
          call BndRadiativeVN(ierr,cctkGH,sw,zero,one,"wavetoy::phi",
      &	      "wavetoy::phi")
+      else if (CCTK_Equals(bound,"robin").eq.1) then
+         call RobinBCVar(ierr,cctkGH,1.0,1,sw,
+     &        "wavetoy::phi")
       end if
 
       if (ierr < 0)  then
-- 
cgit v1.2.3