From 3f217742fb40c989440c6d0ee284e6527e621a81 Mon Sep 17 00:00:00 2001 From: jthorn Date: Wed, 4 Jun 2003 11:40:59 +0000 Subject: remove some unused variables which the compiler noticed git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@182 e296648e-0e4f-0410-bd07-d597d9acff87 --- src/xyz_blended_boundary.F77 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src') diff --git a/src/xyz_blended_boundary.F77 b/src/xyz_blended_boundary.F77 index ee0cd41..3d88a3e 100644 --- a/src/xyz_blended_boundary.F77 +++ b/src/xyz_blended_boundary.F77 @@ -12,7 +12,7 @@ C $Header$ DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - logical doKij, doGij, doDs, doVs, doLapse, doShift + logical doKij, doGij, doLapse, doShift integer i,j,k integer nx,ny,nz @@ -32,7 +32,6 @@ C $Header$ CCTK_REAL betaxe,betaye,betaze CCTK_REAL bxxe,bxye,bxze,byxe,byye,byze,bzxe,bzye,bzze CCTK_REAL det, uxx, uxy, uxz, uyy, uyz, uzz - CCTK_REAL vxe,vye,vze,sav CCTK_REAL $ exact_psi, $ exact_psix, exact_psiy, exact_psiz, -- cgit v1.2.3