solid_set_SetFilterKernel Subroutine

    impure subroutine solid_set_SetFilterKernel(this,kernel_interp,kernel_extrap)
      !> Selects interpolation and extrapolation kernels.
      implicit none
      class(solid_set), intent(inout) :: this                                  !! A collection of solids
      integer,          intent(in)    :: kernel_interp                         !! Filter kernel for interpolations
      integer,          intent(in)    :: kernel_extrap                         !! Filter kernel for extrapolations
      ! Work variable
      integer :: n
      if (allocated(this%p)) then
        do n=1,this%count
          call this%p(n)%SetFilterKernel(kernel_interp,kernel_extrap)
        end do
      end if
      return
    end subroutine solid_set_SetFilterKernel