diff options
| author | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 1999-09-11 14:43:34 +0000 |
|---|---|---|
| committer | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 1999-09-11 14:43:34 +0000 |
| commit | 5e426340c16b8e028f4ee50042fdc8c8a3cc2563 (patch) | |
| tree | b8890ca717c4f68603f4430a47a1f091a8f04ac5 | |
| parent | 32c747e844b07582f877bcc13760eb253b391f87 (diff) | |
Adding error codes to boundary routines
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@21 4451c3c6-1034-4891-99ea-21147727ccdf
| -rw-r--r-- | src/WaveToy.F77 | 12 |
1 files changed, 10 insertions, 2 deletions
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 |