diff options
author | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 1999-09-11 14:45:30 +0000 |
---|---|---|
committer | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 1999-09-11 14:45:30 +0000 |
commit | 27c2da112b2a1c08fa4a5fd90d51f72e1c3b1b82 (patch) | |
tree | 31d34605c069cbd539ce168eea5948c9513a70f5 | |
parent | 6fdb31f4fa147be1067f8c43e365a638ccedda2f (diff) |
Adding error codes for boundary routines
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@13 f80f6fb6-8356-4fd4-90bc-d84ad503c100
-rw-r--r-- | src/WaveToy.F | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/src/WaveToy.F b/src/WaveToy.F index 7d93465..460af4f 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -34,16 +34,21 @@ DECLARE_CCTK_FARGUMENTS DECLARE_CCTK_PARAMETERS - INTEGER,DIMENSION(3):: sw=1 - CCTK_REAL,PARAMETER :: zero = 0.0 - INTEGER CCTK_Equals - + integer :: ierr + integer,dimension(3):: sw=1 + CCTK_REAL,parameter :: zero = 0.0 + integer CCTK_Equals + call ApplySymmetry(cctkGH,"wavetoy::scalarevolve") - if (CCTK_Equals(bound,"flat")==1) then - call ApplyFlatBC(cctkGH,sw,"wavetoy::phi") - else if (CCTK_Equals(bound,"radiation")==1) then - call ApplyRadiativeBC(cctkGH,zero,sw,"wavetoy::phi","wavetoy::phi_old") + if (CCTK_EQUALS(bound,"flat")) then + call ApplyFlatBC(ierr,cctkGH,sw,"wavetoy::phi") + else if (CCTK_EQUALS(bound,"radiation")) then + 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 end subroutine wavetoyf90_boundaries |