From 1bfb97fc199b32ef6dd8e4d90c9d6b25d19a6b89 Mon Sep 17 00:00:00 2001 From: miguel Date: Tue, 3 Apr 2001 15:13:32 +0000 Subject: minor change. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/LegoExcision/trunk@15 f75ba9e5-694f-0410-ac2c-87ea7ce7132b --- src/extrapolate.F90 | 10 +++++----- 1 file 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 -- cgit v1.2.3