s_spline_interpolator_1d__free Subroutine

  subroutine s_spline_interpolator_1d__free( self )

    class(sll_t_spline_interpolator_1d), intent(inout) :: self

    nullify   ( self % bspl )
    deallocate( self % tau  )

    if (allocated( self % matrix )) then
      call self % matrix % free()
      deallocate( self % matrix )
    end if

  end subroutine s_spline_interpolator_1d__free