PRO plot2hrs
; Plot one 2-hr signal, after beam forming and filtering for the Webb-
; source frequency.  Read from a file named like r0124506.27w, with
;	day0 (double)	starting time
;	lblk (long)	length of averaging block, in samples
;	nblk (long)	number of such blocks
;	websig(nblk) (float)  signal after beam-forming and filtering
; RWB, November 3, 2001.
   !p.background='ffffff'x; white background
   !p.color=0
   str1=''; buffer
   day0=double(0); starting day for file (double-precision floating)
   lblk=long(0); length of averaging block
   nblk=long(0); number of averaging blocks
   infile='/usr/data/bland/pioneer/2001/r0124506.27w'; possible file name
   ;***** Ask for file name *****
   read,'input file: '+strmid(infile,strlen(infile)-12,12)+' : ',str1
   IF strlen(str1) gt 0 THEN strput,infile,str1,strlen(infile)-12
   print,'infile:   ',infile
   openr, lun1, infile, /get_lun
   readu,lun1,day0,lblk,nblk
   print,'day0,lblk,nblk = ',day0,lblk,nblk
   websig=fltarr(nblk)
   readu,lun1,websig
   close,lun1
   dt=double(lblk)/1000.; time interval, in seconds
   yd=findgen(nblk)*dt/86400.+day0
   plot,yd,websig
   save
END