minor change.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/LegoExcision/trunk@15 f75ba9e5-694f-0410-ac2c-87ea7ce7132b

1 files changed, 5 insertions, 5 deletions

diff --git a/src/extrapolate.F90 b/src/extrapolate.F90
index ff374cc..aa79d83 100644
--- a/src/extrapolate.F90
+++ b/src/extrapolate.F90
@@ -48,9 +48,9 @@ subroutine excision_extrapolate (ierr, var, oldvar, &
      do j=2,nj-1
         do i=2,ni-1
            if (mask(i,j,k)==MASK_BOUNDARY) then
-              ii = i + dirx(i,j,k)
-              jj = j + diry(i,j,k)
-              kk = k + dirz(i,j,k)
+              ii = i + int(dirx(i,j,k))
+              jj = j + int(diry(i,j,k))
+              kk = k + int(dirz(i,j,k))
               var(i,j,k) = oldvar(i,j,k) + var(ii,jj,kk) - oldvar(ii,jj,kk)
            else if (mask(i,j,k)==MASK_EXCISED) then
               var(i,j,k) = var0
@@ -58,7 +58,7 @@ subroutine excision_extrapolate (ierr, var, oldvar, &
         end do
      end do
   end do
-  
+
   ierr = 0
-  
+
 end subroutine excision_extrapolate