update set subroutines

gha3mi · Mar 30, 2024 · 70268f1 · 70268f1
1 parent 31f4236
commit 70268f1
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 4 deletions.
diff --git a/src/NURBS/forcad_nurbs_volume.f90 b/src/NURBS/forcad_nurbs_volume.f90
@@ -59,7 +59,6 @@ pure subroutine set1(this, knot1, knot2, knot3, Xc, Wc)
         real(rk), intent(in) :: knot1(:), knot2(:), knot3(:)
         real(rk), intent(in) :: Xc(:,:)
         real(rk), intent(in), optional :: Wc(:)
-        integer :: nc(3)
 
         this%knot1 = knot1
         this%knot2 = knot2
@@ -81,7 +80,7 @@ pure subroutine set1(this, knot1, knot2, knot3, Xc, Wc)
     pure subroutine set2(this, Xth_dir1, Xth_dir2, Xth_dir3, order, continuity1, continuity2, continuity3, Xc, Wc)
         class(nurbs_volume), intent(inout) :: this
         real(rk), intent(in) :: Xth_dir1(:), Xth_dir2(:), Xth_dir3(:)
-        integer, intent(in) :: order(3)
+        integer, intent(in) :: order(:)
         integer, intent(in) :: continuity1(:), continuity2(:), continuity3(:)
         real(rk), intent(in) :: Xc(:,:)
         real(rk), intent(in), optional :: Wc(:)

diff --git a/src/Rational_Bezier/forcad_bezier_surface.f90 b/src/Rational_Bezier/forcad_bezier_surface.f90
@@ -46,7 +46,7 @@ module forcad_bezier_surface
     !> Set control points and weights for the Bezier curve object.
     pure subroutine set(this, nc, Xc, Wc)
         class(bezier_surface), intent(inout) :: this
-        integer, intent(in) :: nc(2)
+        integer, intent(in) :: nc(:)
         real(rk), intent(in) :: Xc(:,:)
         real(rk), intent(in), optional :: Wc(:)
 

diff --git a/src/Rational_Bezier/forcad_bezier_volume.f90 b/src/Rational_Bezier/forcad_bezier_volume.f90
@@ -46,7 +46,7 @@ module forcad_bezier_volume
     !> Set control points and weights for the Bezier curve object.
     pure subroutine set(this, nc, Xc, Wc)
         class(bezier_volume), intent(inout) :: this
-        integer, intent(in) :: nc(3)
+        integer, intent(in) :: nc(:)
         real(rk), intent(in) :: Xc(:,:)
         real(rk), intent(in), optional :: Wc(:)