From 70268f13eb56b144b200d1b2eb2571e4abeac26d Mon Sep 17 00:00:00 2001 From: Seyed Ali Ghasemi Date: Sat, 30 Mar 2024 01:50:32 +0100 Subject: [PATCH] update set subroutines --- src/NURBS/forcad_nurbs_volume.f90 | 3 +-- src/Rational_Bezier/forcad_bezier_surface.f90 | 2 +- src/Rational_Bezier/forcad_bezier_volume.f90 | 2 +- 3 files changed, 3 insertions(+), 4 deletions(-) diff --git a/src/NURBS/forcad_nurbs_volume.f90 b/src/NURBS/forcad_nurbs_volume.f90 index 7f9885205..c73be7422 100644 --- 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 index 57f986962..15dc472a0 100644 --- 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 index e88b1c1bc..4c72e4f1d 100644 --- 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(:)