*---------------------------------------- subroutine trigclear * * clear di-electron trigger *---------------------------------------- #include "trig.inc" do i=1,6 ppd(i) = 0.0 ppc(i) = 0.0 enddo do i=1,2 ndalp(i) = 0 nconp(i) = 0 enddo itrig = 0 lpion = .true. return end