module nbound {          # mark helix filter outputs where input is off data.
use nhelix
use bound
contains 
  subroutine nboundn ( ip, nd, na, aa) {
    integer, dimension(:), intent( in) :: nd, na # (ndim)
    type( nfilter)                     :: aa
    integer, intent (in)               :: ip

    allocate( aa%mis( product (nd)))
    call boundn (nd, nd, na, aa%hlx( ip))
    aa%mis = aa%hlx( ip)%mis
    deallocate( aa%hlx( ip)%mis)
       nullify( aa%hlx( ip)%mis)
  }
}