s_bsplines_uniform__init Subroutine

  subroutine s_bsplines_uniform__init( self, degree, periodic, xmin, xmax, ncells )
    class(sll_t_bsplines_uniform), intent(  out) :: self
    integer                      , intent(in   ) :: degree
    logical                      , intent(in   ) :: periodic
    real(wp)                     , intent(in   ) :: xmin
    real(wp)                     , intent(in   ) :: xmax
    integer                      , intent(in   ) :: ncells

    ! Public attributes
    self % degree   = degree
    self % periodic = periodic
    self % uniform  = .true.
    self % ncells   = ncells
    self % nbasis   = merge( ncells  , ncells+degree, periodic )
    self % offset   = merge( degree/2, 0            , periodic )
    self % xmin     = xmin
    self % xmax     = xmax

    ! Private attributes
    self % inv_dx   = real(ncells,wp) / (xmax-xmin)

  end subroutine s_bsplines_uniform__init