diff options
author | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-11-23 21:25:35 +0000 |
---|---|---|
committer | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-11-23 21:25:35 +0000 |
commit | 32dda7ee619f331ae60208e6990dc63599f68066 (patch) | |
tree | 3590d7ecf4fc25ff0761bfe654a5cc37069a64d0 /src/Utils.F90 | |
parent | e79a40c5a2154e9188d682ed749d28f341bfb520 (diff) |
remove unused variable; instead of using aint which truncates but doesn't convert type, use int which does both -> silences compiler warning
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@440 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/Utils.F90')
-rw-r--r-- | src/Utils.F90 | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Utils.F90 b/src/Utils.F90 index 0de6b74..d8b29e4 100644 --- a/src/Utils.F90 +++ b/src/Utils.F90 @@ -34,7 +34,7 @@ subroutine GRHydro_Debug(CCTK_ARGUMENTS) integer i,j,k integer nx, ny, nz - GRHydro_reflevel = aint(log10(dble(cctk_levfac(1)))/log10(2.0d0)) + GRHydro_reflevel = int(log10(dble(cctk_levfac(1)))/log10(2.0d0)) nx = cctk_lsh(1) ny = cctk_lsh(2) @@ -67,7 +67,7 @@ subroutine GRHydro_RefinementLevel(CCTK_ARGUMENTS) implicit none DECLARE_CCTK_ARGUMENTS - GRHydro_reflevel = aint(log10(dble(cctk_levfac(1)))/log10(2.0d0)) + GRHydro_reflevel = int(log10(dble(cctk_levfac(1)))/log10(2.0d0)) end subroutine GRHydro_RefinementLevel @@ -169,7 +169,6 @@ subroutine SetMetricTemps(CCTK_ARGUMENTS) DECLARE_CCTK_PARAMETERS CCTK_INT :: i, j, k, nx, ny, nz - CCTK_REAL :: psi4pt nx = cctk_lsh(1) ny = cctk_lsh(2) |