[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 440)

[knarf at cct.lsu.edu]

User: knarf
Date: 2012/11/23 03:25 PM

Modified:
 /trunk/src/
  Utils.F90

Log:
 remove unused variable; instead of using aint which truncates but doesn't convert type, use int which does both -> silences compiler warning

File Changes:

Directory: /trunk/src/
======================

File [modified]: Utils.F90
Delta lines: +2 -3
===================================================================
--- trunk/src/Utils.F90	2012-11-09 01:53:23 UTC (rev 439)
+++ trunk/src/Utils.F90	2012-11-23 21:25:35 UTC (rev 440)
@@ -34,7 +34,7 @@
   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 @@
   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 @@
   DECLARE_CCTK_PARAMETERS
 
   CCTK_INT :: i, j, k, nx, ny, nz
-  CCTK_REAL :: psi4pt
 
   nx = cctk_lsh(1)
   ny = cctk_lsh(2)