Remove unused variables.

- Remove unused variables in fdm_curve.f90, fdm_surface.f90 and fdm_volume.f90. Signed-off-by: Seyed Ali Ghasemi <info@gha3mi.com>
gha3mi · Jun 24, 2024 · 91f2772 · 91f2772
1 parent d7f1f08
commit 91f2772
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 4 deletions.
diff --git 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
@@ -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
@@ -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(:,:)