pro norp_pr_evx,arg0,arg1,nodisp=nodisp,list=list $
  ,criterion=criterion,cupper=cupper

if not keyword_set(criterion) then criterion=0

dir=getenv('NORP_EVX')

case n_params() of
  2 : begin                         ; "st_time,ed_time"
      flag='2'
      st_time=arg0
      ed_time=arg1
  end
  1 : begin                         ; "date"
      flag='1'
      st_time=arg0
      ed_time=anytim(st_time,/ints)
      ed_time.day=ed_time.day+1
  end
  else : begin
    message,'Number of arguments invalid'
  end
endcase

st_daytim=anytim(st_time,/ints)
ed_daytim=anytim(ed_time,/ints)

ndayx=ed_daytim.day-st_daytim.day+2   ; 1999/10/26
ex=anytim(transpose([[lonarr(ndayx)],[st_daytim.day+lindgen(ndayx)]]),/ex)
yyyy=reform(ex(6,*))
mm=reform(ex(5,*))
dd=reform(ex(4,*))
yy=yyyy-yyyy/100*100
;years='19'+string(yy,format="(i2.2)")
years=string(yyyy,format="(i4.4)")
years=years(uniq(years))

nyrx=n_elements(years)

;infil=dir+'/evx'+years
infil=file_list(dir,'evx'+years)
  if (n_elements(infil) eq 1) then begin
  if (infil(0) eq '') then begin
    print,'No files found'
    return
  endif
  endif

mfilx=n_elements(infil)


text=''
for mfil=0,mfilx-1 do begin
  text0=rd_tfile(infil(mfil))
  text=[text,text0]
endfor
text=text(1:*)

mevx=n_elements(text)
list=strarr(5,mevx)
ids=strarr(mevx)

for mev=0,mevx-1 do begin
  date=strmid(text(mev),0,10)
  stev0=strmid(text(mev),30,6)
  pkev0=strmid(text(mev),40,6)
  dur=float(strmid(text(mev),51,6))
  flux=strmid(text(mev),58,7)
  pos=strmid(text(mev),73,6)

  hh=strmid(stev0,0,2)
  mn=strmid(stev0,2,2)
  ss=strtrim(fix(strmid(stev0,5,1))*6,2)
  stev=anytim(date+' '+hh+':'+mn+':'+ss,/ccsds)

  hh=strmid(pkev0,0,2)
  mn=strmid(pkev0,2,2)
  ss=strtrim(fix(strmid(pkev0,5,1))*6,2)
  pkev=anytim(date+' '+hh+':'+mn+':'+ss,/ccsds)

  edev=anytim(anytim2ints(anytim(stev,/ints),offset=60.*dur),/ccsds)
  list(0,mev)=stev
  list(1,mev)=pkev
  list(2,mev)=edev
  list(3,mev)=flux
  list(4,mev)=pos
  id=strmid(anytim2cal(pkev,/date,form=8)+'_' $
    +anytim2cal(pkev,/time,form=8),0,13)
  ids(mev)=id
endfor

ev_utime=anytim(reform(list(1,*)))
flux=long(list(3,*))
st_utime=anytim(st_time)
ed_utime=anytim(ed_time)
if keyword_set(cupper) then  $
  whr=where(ev_utime ge st_utime and ev_utime le ed_utime and $
    reform(flux) ge criterion and reform(flux) lt cupper,mevx) $
else $
  whr=where(ev_utime ge st_utime and ev_utime le ed_utime and $
    reform(flux) ge criterion,mevx)

if (mevx ne 0) then begin
  list=list(*,whr)
 if not keyword_set(nodisp) then begin
    print,'              Start   Peak     End    Flux@17G Posi-'
    print,'               (UT)   (UT)    (UT)       (SFU) tion '
  for mev=0,mevx-1 do begin
    print,strmid(list(0,mev),0,10) $
    ,' ',strmid(list(0,mev),11,8) $
    ,' ',strmid(list(1,mev),11,8) $
    ,' ',strmid(list(2,mev),11,8) $
    ,' ',list(3,mev) $
    ,'  ',list(4,mev)
  endfor
 endif
endif else begin
  list=0
  print,'No events in this duration'
endelse

end