PHOS/reconstruction/wl0_v3.f

   1
   2         subroutine extrgw(nt,w,ng,m,e,eth)
   3         real w(10),e(10)
   4         integer m(10)
   5         ng=0
   6         do i=1,nt
   7         if(w(i).gt.eth) then
   8                 ng=ng+1
   9                 m(ng)=i
  10                 e(ng)=w(i)
  11         else
  12                 w(i)=0.
  13         endif
  14         enddo
  15         return
  16         end
  17