diff options
Diffstat (limited to 'Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77')
-rw-r--r-- | Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77 | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77 index b10dca7dc..257ad96d0 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77 @@ -29,7 +29,6 @@ c -*-Fortran-*- CCTK_REAL8 src(srciext,srcjext,srckext) integer dstiext, dstjext, dstkext CCTK_REAL8 dst(dstiext,dstjext,dstkext) - CCTK_REAL8 t c bbox(:,1) is lower boundary (inclusive) c bbox(:,2) is upper boundary (inclusive) c bbox(:,3) is stride @@ -44,8 +43,6 @@ c bbox(:,3) is stride integer srcioff, srcjoff, srckoff integer dstioff, dstjoff, dstkoff - CCTK_REAL8 s1fac, s2fac, s3fac - CCTK_REAL8 dstdiv integer i, j, k integer i0, j0, k0 |