End of file
Contents
Index
SUBROUTINE KNOTVO (N,K,KV)
C
C*****************************************************************
C *
C *
C This program computes the node vector KV of an open uniform *
C B spline. *
C *
C INPUT PARAMETERS *
C ================ *
C N : N+1 is the number of DE BOOR points, N >= 2 *
C K : degree of the B spline curve, 3 <= K <= N+1 *
C *
C OUTPUT PARAMETERS *
C ================= *
C KV : INTEGER vector KV(1:N+K+1), with the node vector *
C of order K *
C *
C----------------------------------------------------------------*
C *
C Required subroutines: none *
C *
C*****************************************************************
C *
C Author : Gisela Engeln-Mueüllge *
C Date : 11.30.91 *
C Source code : FORTRAN 77 *
C *
C*****************************************************************
C
INTEGER KV(1:N+1+K)
C
C Create the node vector KV of an open uniform B spline
C
DO 10 J=1,K-1
KV(J)=K-1
10 CONTINUE
DO 20 J=K,N
KV(J)=J
20 CONTINUE
DO 30 J=N+1,N+K-1
KV(J)=N+1
30 CONTINUE
RETURN
END
Begin of file
Contents
Index