pro ver_wavelength, stfile, nfile, rep, quiet=quiet, hc=hc
 ;+
 ;NAME:
 ;        ver_wavelength
 ;PURPOSE:
 ;        Verify Wavelength Configurations
 ;SAMPLE CALLING SEQUENCE:
 ;        ver_wavelength,'/td10/log/rawimage/971103/971103_231541_DPM.ift_wlscan_001.fits',32
 ;HISTORY:
 ;        Written 19-Dec-97 by F.Zele
 ;-

 progver = 'VER_WAVELENGTH Ver 1.1'
 wlt=bytarr(4,32)
 wlt=                               $
 [['13'X, '7d'X, '1c'X, '64'X],     $
  ['13'X, '35'X, '1c'X, '64'X],     $
  ['5b'X, '7d'X, '1c'X, '64'X],     $
  ['5b'X, '35'X, '1c'X, '64'X],     $
  ['13'X, '7d'X, '0a'X, '64'X],     $
  ['13'X, '35'X, '0a'X, '64'X],     $
  ['5b'X, '7d'X, '0a'X, '64'X],     $
  ['5b'X, '35'X, '0a'X, '64'X],     $
  ['13'X, '7d'X, '01'X, '64'X],     $
  ['13'X, '35'X, '01'X, '64'X],     $
  ['5b'X, '7d'X, '01'X, '64'X],     $
  ['5b'X, '35'X, '01'X, '64'X],     $
  ['13'X, '7d'X, '13'X, '50'X],     $
  ['13'X, '11'X, '13'X, '50'X],     $
  ['13'X, '35'X, '13'X, '50'X],     $
  ['13'X, '59'X, '13'X, '50'X],     $
  ['37'X, '7d'X, '13'X, '50'X],     $
  ['37'X, '11'X, '13'X, '50'X],     $
  ['37'X, '59'X, '13'X, '50'X],     $
  ['5b'X, '7d'X, '13'X, '50'X],     $
  ['5b'X, '35'X, '13'X, '50'X],     $
  ['7f'X, '7d'X, '13'X, '50'X],     $
  ['7f'X, '59'X, '13'X, '50'X],     $
  ['13'X, '11'X, '1c'X, '64'X],     $
  ['13'X, '59'X, '1c'X, '64'X],     $
  ['13'X, '11'X, '0a'X, '64'X],     $
  ['13'X, '11'X, '01'X, '64'X],     $
  ['13'X, '7d'X, '13'X, '64'X],     $
  ['13'X, '7d'X, '13'X, '64'X],     $
  ['13'X, '7d'X, '13'X, '64'X],     $
  ['13'X, '7d'X, '13'X, '64'X],     $
  ['13'X, '7d'X, '13'X, '64'X]]
 dirbits=bytarr(4,32)
 dirbits=                           $
 [['02'X, '02'X, '02'X, '02'X],     $
  ['02'X, '00'X, '02'X, '02'X],     $
  ['00'X, '02'X, '02'X, '02'X],     $
  ['00'X, '00'X, '02'X, '02'X],     $
  ['02'X, '02'X, '02'X, '02'X],     $
  ['02'X, '00'X, '02'X, '02'X],     $
  ['00'X, '02'X, '02'X, '02'X],     $
  ['00'X, '00'X, '02'X, '02'X],     $
  ['02'X, '02'X, '02'X, '02'X],     $
  ['02'X, '00'X, '02'X, '02'X],     $
  ['00'X, '02'X, '02'X, '02'X],     $
  ['00'X, '00'X, '02'X, '02'X],     $
  ['02'X, '02'X, '02'X, '02'X],     $
  ['02'X, '02'X, '02'X, '02'X],     $
  ['02'X, '00'X, '02'X, '02'X],     $
  ['02'X, '02'X, '02'X, '02'X],     $
  ['02'X, '02'X, '02'X, '02'X],     $
  ['02'X, '02'X, '02'X, '02'X],     $
  ['02'X, '02'X, '02'X, '02'X],     $
  ['00'X, '02'X, '02'X, '02'X],     $
  ['00'X, '00'X, '02'X, '02'X],     $
  ['02'X, '02'X, '02'X, '02'X],     $
  ['02'X, '02'X, '02'X, '02'X],     $
  ['02'X, '02'X, '02'X, '02'X],     $
  ['02'X, '02'X, '02'X, '02'X],     $
  ['02'X, '02'X, '02'X, '02'X],     $
  ['02'X, '02'X, '02'X, '02'X],     $
  ['03'X, '03'X, '03'X, '03'X],     $
  ['03'X, '03'X, '03'X, '03'X],     $
  ['03'X, '03'X, '03'X, '03'X],     $
  ['03'X, '03'X, '03'X, '03'X],     $
  ['03'X, '03'X, '03'X, '03'X]]
 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)
 focb=0
 fw1b=0
 fw2b=0
 qsb=0
 for i=1, nfile do begin
   file2=string(format='(i3.3)',ifile2)
   rd_trace_i0, file1+file2+'.fits', -1, bh, img, fh
   foc=bh.dp_header(262)
   foc=ishft(foc,-8)
   fw1=bh.dp_header(262)
   fw1=ishft(fw1,8)
   fw1=ishft(fw1,-8)
   fw2=bh.dp_header(263)
   fw2=ishft(fw2,-8)
   qs=bh.dp_header(264)
   qs=ishft(qs,10)
   qs=ishft(qs,-10)
   warning='  different'
   if foc eq wlt(3,i-1) then warning=' ' else                                                  $
     if dirbits(3,i-1) eq '03'X and foc eq focb then warning='  different (no move)'
   rep=[rep,string(format='(a,10x,z,10x,z,a)','FOC Focus Motor      ',foc,wlt(3,i-1),warning)]
   warning='  different'
   if fw1 eq wlt(0,i-1) then warning=' ' else                                                  $
     if dirbits(0,i-1) eq '03'X and fw1 eq fw1b then warning='  different (no move)'
   rep=[rep,string(format='(a,10x,z,10x,z,a)','FW1 Filter Wheel 1   ',fw1,wlt(0,i-1),warning)]
   warning='  different'
   if fw2 eq wlt(1,i-1) then warning=' ' else                                                  $
     if dirbits(1,i-1) eq '03'X and fw2 eq fw2b then warning='  different (no move)'
   rep=[rep,string(format='(a,10x,z,10x,z,a)','FW2 Filter Wheel 2   ',fw2,wlt(1,i-1),warning)]
   warning='  different'
   if abs(qs - wlt(2,i-1)) lt 2 then warning=' ' else                                          $
     if dirbits(2,i-1) eq '03'X and abs(qs - qsb) lt 2 then warning='  different (no move)'
   rep=[rep,string(format='(a,10x,z,10x,z,a)','QS  Quadrant Selector',qs,wlt(2,i-1),warning)]
   rep=[rep,' ']
   focb=foc
   fw1b=fw1
   fw2b=fw2
   qsb=qs
   ifile2=ifile2+1
 endfor
 if (keyword_set(hc)) then prstr, rep, /hc
 if (not keyword_set(quiet)) then  prstr, rep, /nomore
 end