module pefconv {
  use helicon
  use hconest
  integer, private  :: nx
#% _init( yy, aa)
  real, dimension( :), pointer :: yy
  type( filter)                :: aa
  call helicon_init( aa)
  call hconest_init( yy, aa)
  nx = size( yy)
#% _lop( x, r)
  integer stat1, stat2
  stat1 = helicon_lop( adj, .true., x( :nx),   r)
  stat2 = hconest_lop( adj, .true., x( nx+1:), r)
}