From 062a5eb015829c65eaeff1b30d187ac9a09faf19 Mon Sep 17 00:00:00 2001
From: schnetter <>
Date: Tue, 8 Jul 2003 18:36:00 +0000
Subject: Make options table persistent.

darcs-hash:20030708183601-07bb3-101f1100fcc8b3da40f60cd452ec1a850f46d2f1.gz
---
 CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

(limited to 'CarpetExtra')

diff --git a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77
index 5f2af0b6d..3d5a31469 100644
--- a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77
+++ b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77
@@ -129,6 +129,8 @@ c     Local declarations
       parameter (zero=0, one=1)
       
       integer table
+      save table
+      data table /-1/
       
       character fbound*100
       CCTK_INT  fboundlen
@@ -182,12 +184,16 @@ c     -------------------------------------------------------------
 c     Apply the outer boundary conditions
 c     -----------------------------------
       
+      if (table.eq.-1) then
+         
+         call Util_TableCreateFromString (table, "LIMIT=0.0 SPEED=1.0")
+         if (table.lt.0) call CCTK_WARN (0, "internal error")
+         
+      end if
+      
       call CCTK_FortranString (fboundlen, bound, fbound)
       if (fboundlen.lt.0) call CCTK_WARN (0, "internal error")
       
-      call Util_TableCreateFromString (table, "LIMIT=0.0 SPEED=1.0")
-      if (table.lt.0) call CCTK_WARN (0, "internal error")
-      
       ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, 1, table,
      $     "fowavetoy::scalarevolve", fbound)
       if (ierr.ne.0) call CCTK_WARN (0, "internal error")
@@ -195,7 +201,4 @@ c     -----------------------------------
      $     "fowavetoy::scalarevolve_derivs", 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")
-      
       end
-- 
cgit v1.2.3