remove unused variables

gha3mi · Apr 2, 2024 · e37d48c · e37d48c
1 parent a2c701e
commit e37d48c
Show file tree

Hide file tree

Showing 7 changed files with 13 additions and 15 deletions.
diff --git a/src/NURBS/forcad_nurbs_curve.f90 b/src/NURBS/forcad_nurbs_curve.f90
@@ -313,7 +313,7 @@ pure subroutine get_elem_Xg(this, elemConn, p)
     impure subroutine export_Xc(this, filename)
         class(nurbs_curve), intent(in) :: this
         character(len=*), intent(in) :: filename
-        integer :: i, j, nc, nunit
+        integer :: i, nc, nunit
         integer, dimension(:,:), allocatable :: elemConn
 
         ! check
@@ -357,7 +357,7 @@ impure subroutine export_Xc(this, filename)
     impure subroutine export_Xg(this, filename)
         class(nurbs_curve), intent(in) :: this
         character(len=*), intent(in) :: filename
-        integer :: i, j, ng, nunit
+        integer :: i, ng, nunit
         integer, dimension(:,:), allocatable :: elemConn
 
         ! check

diff --git a/src/NURBS/forcad_nurbs_surface.f90 b/src/NURBS/forcad_nurbs_surface.f90
@@ -81,7 +81,6 @@ pure subroutine set2(this, Xth_dir1, Xth_dir2, order, continuity1, continuity2,
         integer, intent(in) :: continuity1(:), continuity2(:)
         real(rk), intent(in) :: Xc(:,:)
         real(rk), intent(in), optional :: Wc(:)
-        integer :: nc(2)
 
         this%knot1 = compute_knot_vector(Xth_dir1, order(1), continuity1)
         this%knot2 = compute_knot_vector(Xth_dir2, order(2), continuity2)
@@ -359,7 +358,7 @@ pure subroutine get_elem_Xg(this, elemConn, p)
     impure subroutine export_Xc(this, filename)
         class(nurbs_surface), intent(in) :: this
         character(len=*), intent(in) :: filename
-        integer :: i, j, nc, nunit
+        integer :: i, nc, nunit
         integer, dimension(:,:), allocatable :: elemConn
 
         ! check
@@ -403,7 +402,7 @@ impure subroutine export_Xc(this, filename)
     impure subroutine export_Xg(this, filename)
         class(nurbs_surface), intent(in) :: this
         character(len=*), intent(in) :: filename
-        integer :: i, j, ng, nunit
+        integer :: i, ng, nunit
         integer, dimension(:,:), allocatable :: elemConn
 
         ! check

diff --git a/src/NURBS/forcad_nurbs_volume.f90 b/src/NURBS/forcad_nurbs_volume.f90
@@ -84,7 +84,6 @@ pure subroutine set2(this, Xth_dir1, Xth_dir2, Xth_dir3, order, continuity1, con
         integer, intent(in) :: continuity1(:), continuity2(:), continuity3(:)
         real(rk), intent(in) :: Xc(:,:)
         real(rk), intent(in), optional :: Wc(:)
-        integer :: nc(3)
 
         this%knot1 = compute_knot_vector(Xth_dir1, order(1), continuity1)
         this%knot2 = compute_knot_vector(Xth_dir2, order(2), continuity2)
@@ -394,7 +393,7 @@ pure subroutine get_elem_Xg(this, elemConn, p)
     impure subroutine export_Xc(this, filename)
         class(nurbs_volume), intent(in) :: this
         character(len=*), intent(in) :: filename
-        integer :: i, j, nc, nunit
+        integer :: i, nc, nunit
         integer, dimension(:,:), allocatable :: elemConn
 
         ! check
@@ -439,7 +438,7 @@ impure subroutine export_Xc(this, filename)
     impure subroutine export_Xg(this, filename)
         class(nurbs_volume), intent(in) :: this
         character(len=*), intent(in) :: filename
-        integer :: i, j, ng, nunit
+        integer :: i, ng, nunit
         integer, dimension(:,:), allocatable :: elemConn
 
         ! check

diff --git a/src/Rational_Bezier/forcad_bezier_curve.f90 b/src/Rational_Bezier/forcad_bezier_curve.f90
@@ -275,7 +275,7 @@ pure subroutine get_elem_Xg(this, elemConn, p)
     impure subroutine export_Xc(this, filename)
         class(bezier_curve), intent(in) :: this
         character(len=*), intent(in) :: filename
-        integer :: i, j, nc, nunit
+        integer :: i, nc, nunit
         integer, dimension(:,:), allocatable :: elemConn
 
         ! check
@@ -320,7 +320,7 @@ impure subroutine export_Xc(this, filename)
     impure subroutine export_Xg(this, filename)
         class(bezier_curve), intent(in) :: this
         character(len=*), intent(in) :: filename
-        integer :: i, j, ng, nunit
+        integer :: i, ng, nunit
         integer, dimension(:,:), allocatable :: elemConn
 
         ! check

diff --git a/src/Rational_Bezier/forcad_bezier_surface.f90 b/src/Rational_Bezier/forcad_bezier_surface.f90
@@ -298,7 +298,7 @@ pure subroutine get_elem_Xg(this, elemConn, p)
     impure subroutine export_Xc(this, filename)
         class(bezier_surface), intent(in) :: this
         character(len=*), intent(in) :: filename
-        integer :: i, j, nc, nunit
+        integer :: i, nc, nunit
         integer, dimension(:,:), allocatable :: elemConn
 
         ! check
@@ -342,7 +342,7 @@ impure subroutine export_Xc(this, filename)
     impure subroutine export_Xg(this, filename)
         class(bezier_surface), intent(in) :: this
         character(len=*), intent(in) :: filename
-        integer :: i, j, ng, nunit
+        integer :: i, ng, nunit
         integer, dimension(:,:), allocatable :: elemConn
 
         ! check

diff --git a/src/Rational_Bezier/forcad_bezier_volume.f90 b/src/Rational_Bezier/forcad_bezier_volume.f90
@@ -318,7 +318,7 @@ pure subroutine get_elem_Xg(this, elemConn, p)
     impure subroutine export_Xc(this, filename)
         class(bezier_volume), intent(in) :: this
         character(len=*), intent(in) :: filename
-        integer :: i, j, nc, nunit
+        integer :: i, nc, nunit
         integer, dimension(:,:), allocatable :: elemConn
 
         ! check
@@ -363,7 +363,7 @@ impure subroutine export_Xc(this, filename)
     impure subroutine export_Xg(this, filename)
         class(bezier_volume), intent(in) :: this
         character(len=*), intent(in) :: filename
-        integer :: i, j, ng, nunit
+        integer :: i, ng, nunit
         integer, dimension(:,:), allocatable :: elemConn
 
         ! check

diff --git a/src/forcad_utils.f90 b/src/forcad_utils.f90
@@ -181,7 +181,7 @@ pure function cmp_elemConn_C0_L(nnode,p) result(elemConn)
         integer, intent(in) :: nnode
         integer, intent(in) :: p
         integer, dimension(:,:), allocatable :: elemConn
-        integer :: i, j, l
+        integer :: i, l
         integer, dimension(:), allocatable :: nodes
 
         allocate(elemConn( ((nnode-p) / p) ,2))