subroutine tri(aa,bb,i)
      end