INTERPOLATIONS: Remove unused variables in 2D case.
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
8f33e4aeb5
commit
b8e71a4fb0
@ -651,8 +651,14 @@ module interpolations
|
||||
! local variables
|
||||
!
|
||||
logical :: flag
|
||||
integer :: i, j, i1, j1, k1, i2, j2, k2
|
||||
real(kind=max_prec) :: sig, fc, fx, fy, fz, xl, xr, yl, yr, zl, zr
|
||||
integer :: i, j, i1, j1, i2, j2
|
||||
#if NDIMS == 3
|
||||
integer :: k1, k2
|
||||
#endif /* NDIMS == 3 */
|
||||
real(kind=max_prec) :: sig, fc, fx, fy, xl, xr, yl, yr
|
||||
#if NDIMS == 3
|
||||
real(kind=max_prec) :: fz, zl, zr
|
||||
#endif /* NDIMS == 3 */
|
||||
|
||||
! local arrays for derivatives
|
||||
!
|
||||
@ -824,7 +830,10 @@ module interpolations
|
||||
! local variables
|
||||
!
|
||||
integer :: i , j , k = 1
|
||||
integer :: im1, jm1, km1, ip1, jp1, kp1
|
||||
integer :: im1, jm1, ip1, jp1
|
||||
#if NDIMS == 3
|
||||
integer :: km1, kp1
|
||||
#endif /* NDIMS == 3 */
|
||||
|
||||
! local vectors
|
||||
!
|
||||
@ -1067,10 +1076,13 @@ module interpolations
|
||||
|
||||
! local variables
|
||||
!
|
||||
logical :: flag
|
||||
integer :: i , j , k = 1
|
||||
integer :: il , jl , kl , iu , ju , ku
|
||||
integer :: im1, jm1, km1, ip1, jp1, kp1
|
||||
logical :: flag
|
||||
integer :: i, il, iu, im1, ip1
|
||||
integer :: j, jl, ju, jm1, jp1
|
||||
integer :: k = 1
|
||||
#if NDIMS == 3
|
||||
integer :: kl, ku, km1, kp1
|
||||
#endif /* NDIMS == 3 */
|
||||
|
||||
! local arrays for derivatives
|
||||
!
|
||||
@ -1259,7 +1271,10 @@ module interpolations
|
||||
!
|
||||
integer :: i, im1, ip1
|
||||
integer :: j, jm1, jp1
|
||||
integer :: k = 1, km1, kp1
|
||||
integer :: k = 1
|
||||
#if NDIMS == 3
|
||||
integer :: km1, kp1
|
||||
#endif /* NDIMS == 3 */
|
||||
integer :: m
|
||||
#if NDIMS == 3
|
||||
integer :: n, np1, np2
|
||||
|
Loading…
x
Reference in New Issue
Block a user