From 91f2772c86b09b9212974662277425da8daab0ab Mon Sep 17 00:00:00 2001 From: Seyed Ali Ghasemi Date: Tue, 25 Jun 2024 00:21:18 +0200 Subject: [PATCH] Remove unused variables. - Remove unused variables in fdm_curve.f90, fdm_surface.f90 and fdm_volume.f90. Signed-off-by: Seyed Ali Ghasemi --- test/fdm_curve.f90 | 3 +-- test/fdm_surface.f90 | 2 +- test/fdm_volume.f90 | 2 +- 3 files changed, 3 insertions(+), 4 deletions(-) diff --git a/test/fdm_curve.f90 b/test/fdm_curve.f90 index 325d8b0a8..a5276794a 100644 --- a/test/fdm_curve.f90 +++ b/test/fdm_curve.f90 @@ -8,8 +8,7 @@ program fdm_test_curve real(rk), allocatable :: Xc(:,:), Wc(:) !! Arrays for control points and weights real(rk) :: knot(6) !! Array for knot vector real(rk) :: Xtp, tol, Xt, Xtm - real(rk), allocatable :: Tgc(:), dTgc(:), Tgcp(:), dTgcp(:), Tgcm(:), dTgcm(:), & - CFD(:), BFD(:), FFD(:), d2Tgc(:), d2Tgcp(:), d2Tgcm(:) + real(rk), allocatable :: Tgc(:), dTgc(:), Tgcp(:), dTgcp(:), Tgcm(:), dTgcm(:), d2Tgc(:), d2Tgcp(:), d2Tgcm(:) !----------------------------------------------------------------------------- ! Setting up the NURBS curve diff --git a/test/fdm_surface.f90 b/test/fdm_surface.f90 index 593328bf1..380413588 100644 --- a/test/fdm_surface.f90 +++ b/test/fdm_surface.f90 @@ -5,7 +5,7 @@ program fdm_test_surface implicit none type(nurbs_surface) :: surface !! Declare a NURBS surface object - real(rk), allocatable :: Xc(:,:), Wc(:) !! Arrays for control points and weights + real(rk), allocatable :: Wc(:) !! Declare the control points weights real(rk) :: Xtp(2), tol, Xt(2), Xtm(2) real(rk), allocatable :: Tgc(:), dTgc(:,:), Tgcp(:), dTgcp(:,:), Tgcm(:), dTgcm(:,:), d2Tgc(:,:), d2Tgcp(:,:), d2Tgcm(:,:) real(rk), allocatable :: CFD(:,:), BFD(:,:), FFD(:,:), CFD2(:,:), BFD2(:,:), FFD2(:,:) diff --git a/test/fdm_volume.f90 b/test/fdm_volume.f90 index 8d890c9e1..ff0f3efcf 100644 --- a/test/fdm_volume.f90 +++ b/test/fdm_volume.f90 @@ -5,7 +5,7 @@ program fdm_test_volume implicit none type(nurbs_volume) :: volume !! Declare a NURBS volume object - real(rk), allocatable :: Xc(:,:), Wc(:) !! Arrays for control points and weights + real(rk), allocatable :: Wc(:) !! Weights for the control points real(rk) :: Xt(3), tol, Xtm(3), Xtp(3) real(rk), allocatable :: Tgc(:), dTgc(:,:), Tgcp(:), dTgcp(:,:), Tgcm(:), dTgcm(:,:), d2Tgc(:,:), d2Tgcp(:,:), d2Tgcm(:,:) real(rk), allocatable :: CFD(:,:), BFD(:,:), FFD(:,:), CFD2(:,:), BFD2(:,:), FFD2(:,:)