module leakint2 {
  use leakint
  integer :: n1, n2
#% _init (n1, n2, rho)
  real, intent (in) :: rho
  call leakint_init (rho)
#% _lop (x (n1,n2), y (n1,n2))
  integer :: i2, stat1
  do i2 = 1, n2
    stat1 = leakint_lop (adj, .true., x (:,i2), y (:, i2))
}