From 41b6423127287ef77462d11b81ca2dd4a826637c Mon Sep 17 00:00:00 2001 From: allen Date: Wed, 21 Aug 2002 15:15:47 +0000 Subject: check all boundary condition return codes for errors git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@74 f80f6fb6-8356-4fd4-90bc-d84ad503c100 --- src/WaveToy.F | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/WaveToy.F b/src/WaveToy.F index a03de93..48189c7 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -11,6 +11,7 @@ #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#define BOUNDARY_ERROR if (ierr < 0) call CCTK_WARN(0,"WaveToyF90_Boundaries: Error in boundary routines") /*@@ @routine WaveToyF90_Evolution @@ -140,11 +141,17 @@ call BndRobinVN(ierr,cctkGH, sw, finf, npow,"wavetoy::phi") else if (CCTK_EQUALS(bound,"zero")) then call BndScalarDirVN(ierr,cctkGH,swdir,mione ,sval,"wavetoy::phi") + BOUNDARY_ERROR call BndScalarDirVN(ierr,cctkGH,swdir,ione ,sval,"wavetoy::phi") + BOUNDARY_ERROR call BndScalarDirVN(ierr,cctkGH,swdir,mitwo ,sval,"wavetoy::phi") + BOUNDARY_ERROR call BndScalarDirVN(ierr,cctkGH,swdir,itwo ,sval,"wavetoy::phi") + BOUNDARY_ERROR call BndScalarDirVN(ierr,cctkGH,swdir,mithree,sval,"wavetoy::phi") + BOUNDARY_ERROR call BndScalarDirVN(ierr,cctkGH,swdir,ithree ,sval,"wavetoy::phi") + BOUNDARY_ERROR else if (.NOT. CCTK_EQUALS(bound,"none")) then call CCTK_WARN(0,"Unrecognized boundary condition") end if -- cgit v1.2.3