From 5e426340c16b8e028f4ee50042fdc8c8a3cc2563 Mon Sep 17 00:00:00 2001
From: allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf>
Date: Sat, 11 Sep 1999 14:43:34 +0000
Subject: Adding error codes to boundary routines

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@21 4451c3c6-1034-4891-99ea-21147727ccdf
---
 src/WaveToy.F77 | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/WaveToy.F77 b/src/WaveToy.F77
index 40636bb..830db0c 100644
--- a/src/WaveToy.F77
+++ b/src/WaveToy.F77
@@ -34,9 +34,13 @@
       DECLARE_CCTK_FARGUMENTS
       DECLARE_CCTK_PARAMETERS
 
+      CCTK_REAL zero
+      integer ierr
       integer sw(3)
       integer CCTK_Equals
 
+      zero = 0.0
+
 c     Set the stencil width
       sw(1)=1
       sw(2)=1
@@ -45,9 +49,13 @@ c     Set the stencil width
       call ApplySymmetry(cctkGH,"wavetoy::scalarevolve")
 
       if (CCTK_EQUALS(bound,"flat")) then
-         call ApplyFlatBC(cctkGH,sw,"wavetoy::phi")
+         call ApplyFlatBC(ierr,cctkGH,sw,"wavetoy::phi")
       else if (CCTK_Equals(bound,"radiation").eq.1) then
-         call ApplyRadiativeBC(cctkGH,1.0,sw,"wavetoy::phi","wavetoy::phi_old")
+         call ApplyRadiativeBC(ierr,cctkGH,zero,sw,"wavetoy::phi","wavetoy::phi_old")
+      end if
+
+      if (ierr < 0)  then
+        call CCTK_WARN(0,"Boundary conditions not applied - giving up!");
       end if
 
       return
-- 
cgit v1.2.3