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 | |
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
-rw-r--r-- | src/GRHydro_PPM.F90 | 4 | ||||
-rw-r--r-- | src/GRHydro_PPMM.F90 | 4 |
2 files changed, 0 insertions, 8 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,& diff --git a/src/GRHydro_PPMM.F90 b/src/GRHydro_PPMM.F90 index 484296a..c6e3656 100644 --- a/src/GRHydro_PPMM.F90 +++ b/src/GRHydro_PPMM.F90 @@ -30,10 +30,6 @@ @@*/ -#define SpaceMask_CheckStateBitsF90_1D(mask,i,type_bits,state_bits) \ - (iand(mask((i)),(type_bits)).eq.(state_bits)) - - subroutine SimplePPM_1dM(handle,poly,nx,dx,& rho,velx,vely,velz,Bvcx,Bvcy,Bvcz,psidc,eps,press,& rhominus,velxminus,velyminus,velzminus,Bvcxminus,Bvcyminus,Bvczminus,psidcminus,epsminus,& |