From 174928d579951712e21a361706c3c3188634e5af Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Sat, 1 Jan 2005 19:15:00 +0000 Subject: CarpetLib: Remove unused variables from Fortran code darcs-hash:20050101191544-891bb-4f1f960cbe9c99a9cdc42c1ba590ecdc6eb75f5f.gz --- Carpet/CarpetLib/src/copy_3d_complex16.F77 | 2 -- Carpet/CarpetLib/src/copy_3d_int4.F77 | 2 -- Carpet/CarpetLib/src/copy_3d_real8.F77 | 2 -- Carpet/CarpetLib/src/prolongate_3d_real8_2tl_eno.F90 | 7 +------ Carpet/CarpetLib/src/prolongate_3d_real8_2tl_minmod.F77 | 4 ---- Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o5.F77 | 2 +- Carpet/CarpetLib/src/prolongate_3d_real8_3tl_eno.F90 | 5 ----- Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77 | 4 ---- Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 | 5 ----- Carpet/CarpetLib/src/prolongate_3d_real8_minmod.F77 | 3 --- Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77 | 3 --- 11 files changed, 2 insertions(+), 37 deletions(-) (limited to 'Carpet/CarpetLib') diff --git a/Carpet/CarpetLib/src/copy_3d_complex16.F77 b/Carpet/CarpetLib/src/copy_3d_complex16.F77 index e7988173e..9839de44e 100644 --- a/Carpet/CarpetLib/src/copy_3d_complex16.F77 +++ b/Carpet/CarpetLib/src/copy_3d_complex16.F77 @@ -31,8 +31,6 @@ c bbox(:,3) is stride integer i, j, k integer d - character msg*1000 - do d=1,3 diff --git a/Carpet/CarpetLib/src/copy_3d_int4.F77 b/Carpet/CarpetLib/src/copy_3d_int4.F77 index e64897ed7..4422421e7 100644 --- a/Carpet/CarpetLib/src/copy_3d_int4.F77 +++ b/Carpet/CarpetLib/src/copy_3d_int4.F77 @@ -31,8 +31,6 @@ c bbox(:,3) is stride integer i, j, k integer d - character msg*1000 - do d=1,3 diff --git a/Carpet/CarpetLib/src/copy_3d_real8.F77 b/Carpet/CarpetLib/src/copy_3d_real8.F77 index e764f8af8..efd91d8f2 100644 --- a/Carpet/CarpetLib/src/copy_3d_real8.F77 +++ b/Carpet/CarpetLib/src/copy_3d_real8.F77 @@ -31,8 +31,6 @@ c bbox(:,3) is stride integer i, j, k integer d - character msg*1000 - do d=1,3 diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_eno.F90 b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_eno.F90 index fc5341fe2..9fa762a04 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_eno.F90 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_eno.F90 @@ -70,19 +70,14 @@ subroutine prolongate_3d_real8_2tl_eno (src1, t1, src2, t2, & integer srcioff, srcjoff, srckoff integer dstioff, dstjoff, dstkoff - CCTK_REAL8 s1fac, s2fac + CCTK_REAL8 s1fac, s2fac integer i, j, k integer i0, j0, k0 integer fi, fj, fk - integer ifac(4), jfac(4), kfac(4) integer ii, jj, kk - integer fac - CCTK_REAL8 res integer d - character msg*1000 - CCTK_REAL8, dimension(0:3,0:3) :: tmp1 CCTK_REAL8, dimension(0:3) :: tmp2 CCTK_REAL8 :: dsttmp1, dsttmp2 diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_minmod.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_minmod.F77 index 46a2c7417..1032bd2e4 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_minmod.F77 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_minmod.F77 @@ -70,14 +70,10 @@ c bbox(:,3) is stride CCTK_REAL8 s1fac, s2fac - CCTK_REAL8 dstdiv integer i, j, k integer i0, j0, k0 integer fi, fj, fk - integer ifac(4), jfac(4), kfac(4) integer ii, jj, kk - integer fac - CCTK_REAL8 res integer d character msg*1000 diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o5.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o5.F77 index 4fbacda53..9b61ea0d6 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o5.F77 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o5.F77 @@ -50,7 +50,7 @@ c bbox(:,3) is stride integer srcioff, srcjoff, srckoff integer dstioff, dstjoff, dstkoff - CCTK_REAL8 s1fac, s2fac, s3fac + CCTK_REAL8 s1fac, s2fac CCTK_REAL8 dstdiv integer i, j, k diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_eno.F90 b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_eno.F90 index a27d95872..03a8bac3a 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_eno.F90 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_eno.F90 @@ -74,14 +74,9 @@ subroutine prolongate_3d_real8_3tl_eno (src1, t1, src2, t2, & integer i, j, k integer i0, j0, k0 integer fi, fj, fk - integer ifac(4), jfac(4), kfac(4) integer ii, jj, kk - integer fac - CCTK_REAL8 res integer d - character msg*1000 - CCTK_REAL8, dimension(0:3,0:3) :: tmp1 CCTK_REAL8, dimension(0:3) :: tmp2 CCTK_REAL8 :: dsttmp1, dsttmp2, dsttmp3 diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77 index 499cb8de0..30c6116be 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77 @@ -74,14 +74,10 @@ c bbox(:,3) is stride CCTK_REAL8 s1fac, s2fac, s3fac - CCTK_REAL8 dstdiv integer i, j, k integer i0, j0, k0 integer fi, fj, fk - integer ifac(4), jfac(4), kfac(4) integer ii, jj, kk - integer fac - CCTK_REAL8 res integer d character msg*1000 diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 b/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 index c755256cc..e5f1c53ae 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_eno.F90 @@ -112,14 +112,9 @@ subroutine prolongate_3d_real8_eno (src, srciext, srcjext, & integer i, j, k integer i0, j0, k0 integer fi, fj, fk - integer ifac(4), jfac(4), kfac(4) integer ii, jj, kk - integer fac - CCTK_REAL8 res integer d - character msg*1000 - CCTK_REAL8, dimension(0:3,0:3) :: tmp1 CCTK_REAL8, dimension(0:3) :: tmp2 diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_minmod.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_minmod.F77 index 1dcc53e1b..8f880382e 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_minmod.F77 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_minmod.F77 @@ -83,10 +83,7 @@ c bbox(:,3) is stride integer i, j, k integer i0, j0, k0 integer fi, fj, fk - integer ifac(4), jfac(4), kfac(4) integer ii, jj, kk - integer fac - CCTK_REAL8 res integer d character msg*1000 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 -- cgit v1.2.3