pro plot_ntnacal,today=today,findex,auto=auto

   if (n_elements(findex) ne 1) then findex=50
   srsp_defs
   if (keyword_set(today)) then filename = 'c:\working\daily.arc' else begin
      ; Get list of files in ARC directory
      filename = dialog_pickfile(path='c:\arc',filter='04*.arc')
      if (filename eq '') then return
   endelse
   srsp_dumpfile,filename,irc,out=out
   irec = 0
   for i = 0, n_elements(out)-1 do begin
      if (strpos(out[i],'HEADER') ne -1) then begin
         scntyp = strmid(out[i],63)
         if (scntyp eq 'ACALALL') then reads,out[i],irec,format='(I6)'
      endif
   endfor
   if (irec eq 0) then begin
      print,'PLOT_NTNACAL: No ACALALL scan found.'
      return
   endif
   print,'Scan at record ',irec,' is an ACALALL scan.'
;   srsp_ntnaplot,filename,irec+1,findex,doprint=doprint,auto=auto
;   if (!d.window ne -1) then wshow
;   line=''
;   read,'Would you like a hardcopy of this plot? [Y/N] ',line
;   if (doprint eq 1) then begin  ;strupcase(strmid(line,0,1)) eq 'Y') then begin
;      set_plot,'printer'
;      srsp_mf_plot,filename,irec+1,findex,auto=auto
;      device,/close
;      set_plot,'win'
;   endif

return
end