From ea582beb0d512a99f6e3658060488c107be4d8e5 Mon Sep 17 00:00:00 2001
From: schnetter <>
Date: Fri, 27 Jun 2003 14:26:00 +0000
Subject: Remove superfluous parameter checking.

Remove superfluous parameter checking.
Provide correct asymptotic limits.

darcs-hash:20030627142611-07bb3-106ad5807b1a2ab2feea367886e03cbe9ca2377d.gz
---
 CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

(limited to 'CarpetExtra/FOWaveToyF77')

diff --git a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77
index b8cb5fe86..1450ff325 100644
--- a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77
+++ b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77
@@ -128,6 +128,8 @@ c     Local declarations
       CCTK_REAL zero, one
       parameter (zero=0, one=1)
       
+      integer table, table_derivs
+      
       character fbound*100
       CCTK_INT  fboundlen
       
@@ -183,16 +185,27 @@ c     -----------------------------------
       call CCTK_FortranString (fboundlen, bound, fbound)
       if (fboundlen.lt.0) call CCTK_WARN (0, "internal error")
       
-      ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
+      
+      call Util_TableCreateFromString (table, "LIMIT=1.0 SPEED=1.0")
+      if (table.lt.0) call CCTK_WARN (0, "internal error")
+      call Util_TableCreateFromString (table_derivs, "LIMIT=0.0 SPEED=1.0")
+      if (table_derivs.lt.0) call CCTK_WARN (0, "internal error")
+      
+      ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, table,
      $     "fowavetoy::phi", fbound)
-      ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
+      ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, table_derivs,
      $     "fowavetoy::pi", fbound)
-      ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
+      ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, table_derivs,
      $     "fowavetoy::phix", fbound)
-      ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
+      ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, table_derivs,
      $     "fowavetoy::phiy", fbound)
-      ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
+      ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, table_derivs,
      $     "fowavetoy::phiz", fbound)
       if (ierr.ne.0) call CCTK_WARN (0, "internal error")
       
+      call Util_TableDestroy (ierr, table)
+      if (ierr.ne.0) call CCTK_WARN (0, "internal error")
+      call Util_TableDestroy (ierr, table_derivs)
+      if (ierr.ne.0) call CCTK_WARN (0, "internal error")
+      
       end
-- 
cgit v1.2.3