pro fread,iew=iew,vew=vew,isn=isn,vsn=vsn, $
group_leader=group_leader,time_sec=time_sec,date=date,Length=Length, $
start=start,stop=stop,bounds=bounds,multi=multi,cancel=cancel, $
Filename=Filename,Fileformat=Fileformat,current_file=current_file, $
Dt=Dt,attr=attr,nolimit=nolimit

;	Performs reading of data arrays from the SSRT data files.

if n_elements(group_leader) le 0 then group_leader=0L
if n_elements(current_file) le 0 then current_file=0
if n_elements(nolimit) le 0 then nolimit=0

widget_control,/hour

filesetting, Filen=Filename,boun=bounds,path=getenv('spk_dat'),$
current_file=current_file, Filefor=Fileformat,mul=multi, $
sum=sum,Cancel=Cancel,Stokes=Stokes,group_leader=group_leader,number=Length, $
nolimit=nolimit

current_file=1
widget_control,hour=0
if (Filename eq '') or (cancel eq 1) then return

iew=Stokes(0)	&	vew=Stokes(1)
isn=Stokes(2)	&	vsn=Stokes(3)

widget_control,/hour

readfile,FileName=FileName,bounds=bounds,$
 Iew=Iew, Vew=Vew, ISN=ISN, VSN=VSN, time=time_sec, attr=attr, $
   start=start, stop=stop, multi=multi, sum=sum, extr=extr, $
	date=date

if Fileformat(0) eq 'fdas' then Dt=0.014d0 else Dt=0.056d0

end