module parcel {
  use patch
  integer, private :: nw, n
#% _init (nwin, nwall, nwind)
  integer, dimension (:), pointer :: nwin, nwall, nwind
  call patch_init (nwin, nwall, nwind)
  n = product (nwin); nw = product (nwind)
#%_lop (wall (:), wind (nw, n))
  integer :: i, stat
  do i = 1, n {
     stat = patch_lop (adj, .true., wall, wind (:,i))
     call patch_close ()
  }
}