diff options
author | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-11-01 23:22:50 +0000 |
---|---|---|
committer | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-11-01 23:22:50 +0000 |
commit | f053ee7f98cc1cb2d1129f8dfa8ae5de64c0374b (patch) | |
tree | e3916f9cfc6fcceecda6cc1c1d7ad884572d28d9 /src/GRHydro_PPM.F90 | |
parent | 4e314658696c0d299afdb7fbdc8d6e3eef65a64c (diff) |
remove unused macros SpaceMask_CheckStateBitsF90_1D
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@293 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_PPM.F90')
-rw-r--r-- | src/GRHydro_PPM.F90 | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/GRHydro_PPM.F90 b/src/GRHydro_PPM.F90 index bc296e2..c5754a0 100644 --- a/src/GRHydro_PPM.F90 +++ b/src/GRHydro_PPM.F90 @@ -47,10 +47,6 @@ end subroutine PPM_TVD @@*/ -#define SpaceMask_CheckStateBitsF90_1D(mask,i,type_bits,state_bits) \ - (iand(mask((i)),(type_bits)).eq.(state_bits)) - - subroutine SimplePPM_1d(handle,poly,& nx,dx,rho,velx,vely,velz,eps,press,rhominus,& velxminus,velyminus,velzminus,epsminus,rhoplus,velxplus,velyplus,& |