pro ver_tran_det, stfile, nfile, rep, quiet=quiet, hc=hc
 ;+
 ;NAME:
 ;        ver_tran_det
 ;PURPOSE:
 ;        Verify Transient detection
 ;SAMPLE CALLING SEQUENCE:
 ;        ver_tran_det,'/td10/log/rawimage/971103/971103_204730_Seq12_059.fits',4
 ;HISTORY:
 ;        Written 5-Dec-97 by F.Zele
 ;-

 progver = 'VER_TRAN_DET Ver 1.1'
 rep=[progver + ' Run ' + ut_time() + ' UT',              $
      'Starting with file ' + stfile,' ']
 if nfile lt 1 then stop, ' illegal number of files'
 rep=[rep,'  Description             Stored-values          Computed-values',' ']
 file1=strmid(stfile,0,strpos(stfile,'.fits')-3)
 file2=strmid(stfile,strpos(stfile,'.fits')-3,3)
 ifile2=fix(file2)
 for i=1, nfile do begin
   file2=string(format='(i3.3)',ifile2)
   rd_trace_i0, file1+file2+'.fits', -1, bh, img, fh
   tf=bh.dp_header(295)
   tf=ishft(tf,13)
   tf=ishft(tf,-15)
   dt=bh.dp_header(297)
   dt=ishft(dt,8)
   dt=ishft(dt,-15)
   tmul=bh.dp_header(297)
   tmul=ishft(tmul,-8)
   tpc=bh.dp_header(298)
   rep=[rep,string('SQFRM Fr.No.in Seq.',bh.dp_header(201))]
   rep=[rep,string('TF Transient Flag  ',tf,'    ',bh.dp_header(335))]
   rep=[rep,string('TEF Transient Event',bh.dp_header(400))]
   rep=[rep,string('TMUL Transient Mult',tmul,'    ',bh.dp_header(336))]
   rep=[rep,string('TPC Trans Pix Cnt  ',tpc,bh.dp_header(337)+bh.dp_header(338)*'10000'x)]
   rep=[rep,string('DT Dark Transient  ',dt,'    ',bh.dp_header(339))]
   bf=bh.dp_header(319)
   if (i mod 2) eq 0 then begin
     tbright=where(img*100L gt imgb*long(tmul),cntbright)
     tdark  =where(imgb*100L gt img*long(tmul),cntdark)
     rep=[rep,string('Bright Pixel Cnt                              ',cntbright)]
     rep=[rep,string('Dark   Pixel Cnt                              ',cntdark)]
   end
   imgb=img
   rep=[rep,' ']
   ifile2=ifile2+1
 endfor
 if (keyword_set(hc)) then prstr, rep, /hc
 if (not keyword_set(quiet)) then  prstr, rep, /nomore
 end