diff options
| author | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2002-08-21 15:15:47 +0000 |
|---|---|---|
| committer | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2002-08-21 15:15:47 +0000 |
| commit | 41b6423127287ef77462d11b81ca2dd4a826637c (patch) | |
| tree | 37a514dde1439b2bc9dabe75ce4b2d97f636be97 | |
| parent | 4396db0170189c19d0945123f6c3d71f56c9453d (diff) | |
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
| -rw-r--r-- | src/WaveToy.F | 7 |
1 files changed, 7 insertions, 0 deletions
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 |