End of file
Contents
Index

      SUBROUTINE KNOTVG (N,K,KV)

C********************************************************************
C                                                                   *
C   This program computes the node vector KV of a closed uniform B  *
C   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, 2 <= K <= N+1           *
C                                                                   *
C   OUTPUT PARAMETERS                                               *
C   =================                                               *
C   KV      : INTEGER vector KV(1:N+K-1), with the node vector of   *
C             order K                                               *
C                                                                   *
C-------------------------------------------------------------------*
C                                                                   *
C   Required subroutines: none                                      *
C                                                                   *
C********************************************************************
C                                                                   *
C   Authors     : Reinhold Wodicka, Bjoern Terwege                  *
C   Date        : 05.07.1995                                        *
C   Source code : FORTRAN 77                                        *
C                                                                   *
C********************************************************************
C
      INTEGER KV(1:N+2*(K-1))
c
c     Create the node vector KV of a closed uniform B spline
c
      DO 10 J=1,N+2*(K-1)
          KV(J)=j
10    CONTINUE
      RETURN
      END


Begin of file
Contents
Index