From dfaf7b2ccf034e8d27e88de83a19468c02435949 Mon Sep 17 00:00:00 2001 From: Seyed Ali Ghasemi Date: Mon, 29 Apr 2024 15:22:23 +0200 Subject: [PATCH] Remove unused variables Signed-off-by: Seyed Ali Ghasemi --- example/shape_tetragon.f90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/example/shape_tetragon.f90 b/example/shape_tetragon.f90 index 2eecbfcc9..23c6a9bee 100644 --- a/example/shape_tetragon.f90 +++ b/example/shape_tetragon.f90 @@ -5,8 +5,6 @@ program shape_tetragon implicit none type(nurbs_surface) :: shape !! Declare a NURBS surface object - real(rk), allocatable :: Xc(:,:), Wc(:) !! Arrays for control points and weights - real(rk), allocatable :: knot1(:), knot2(:) !! Arrays for knot vectors in both dimensions !----------------------------------------------------------------------------- ! Setting up the NURBS tetrangon