remove unused variable nc

gha3mi · Mar 30, 2024 · 31f4236 · 31f4236
1 parent 34110c0
commit 31f4236
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/NURBS/forcad_nurbs_surface.f90 b/src/NURBS/forcad_nurbs_surface.f90
@@ -58,7 +58,6 @@ pure subroutine set1(this, knot1, knot2, Xc, Wc)
         real(rk), intent(in) :: knot2(:)
         real(rk), intent(in) :: Xc(:,:)
         real(rk), intent(in), optional :: Wc(:)
-        integer :: nc(2)
 
         this%knot1 = knot1
         this%knot2 = knot2
@@ -78,7 +77,7 @@ pure subroutine set1(this, knot1, knot2, Xc, Wc)
     pure subroutine set2(this, Xth_dir1, Xth_dir2, order, continuity1, continuity2, Xc, Wc)
         class(nurbs_surface), intent(inout) :: this
         real(rk), intent(in) :: Xth_dir1(:), Xth_dir2(:)
-        integer, intent(in) :: order(2)
+        integer, intent(in) :: order(:)
         integer, intent(in) :: continuity1(:), continuity2(:)
         real(rk), intent(in) :: Xc(:,:)
         real(rk), intent(in), optional :: Wc(:)