pro gr_read, scan,I_record, V_record, header, file=file, 	$

	version=version,			$
	comments=comments,			$
	Parameter=Parameter, 			$
	Interferometer=Interferometer,		$
	source_file=source_file,		$
	first_record=first_record,		$
	Date=Date,	    			$
	Reference_time=Reference_time,	 	$
	Reference_Channel=Reference_Channel,	$
	Start_time=Start_time,			$
	Receiver=Receiver,     			$
	Dt=Dt,					$
	Length=Length, 				$
	N_channels=N_channels,			$
	Creator=Creator,			$
	Created=Created,			$
	Array_size=Array_size,			$
	Type=Type,				$

	Channel_bounds=channel_bounds,		$
	i_scan_bounds=i_scan_bounds,		$
	d_scan_bounds=d_scan_bounds,		$
	zero=zero,				$
	factor=factor,				$
	weight=weight


if n_elements(File) le 0 then $
	File=pickfile(path=getenv('spk_dat'),filt='*.wrs *nrs')

if File eq '' then return

widget_control,/hour

openr,lun,File,/get_lun

	gr_header,lun,offset,header,/read,	$
	version=version,			$
	comments=comments,			$
	Parameter=Parameter, 			$
	Interferometer=Interferometer,		$
	source_file=source_file,		$
	first_record=first_record,		$
	Date=Date,	    			$
	Reference_time=Reference_time,	 	$
	Reference_Channel=Reference_Channel,	$
	Start_time=Start_time,			$
	Receiver=Receiver,     			$
	Dt=Dt,					$
	Length=Length, 				$
	N_channels=N_channels,			$
	Creator=Creator,			$
	Created=Created,			$
	Array_size=Array_size,			$
	Type=Type,				$

	Channel_bounds=channel_bounds,		$
	i_scan_bounds=i_scan_bounds,		$
	d_scan_bounds=d_scan_bounds,		$
	zero=zero,				$
	factor=factor,				$
	weight=weight


point_lun,lun,Offset


scan_I=(scan_V=fltarr(N_channels))
d_scan_I=(d_scan_V=fltarr(N_channels))

model=fltarr(N_channels)

Number=Channel_bounds(1)-Channel_bounds(0)+1

I_record=(V_record=intarr(Number,Length))

readu,lun, scan_I, scan_V, d_scan_I, d_scan_V, model, I_record, V_record

free_lun,lun

scan_I=(scan_I-zero)*weight
scan_V=scan_V*weight
I_record=(I_record-zero)*weight
V_record=V_record*weight

scan=[[scan_I], [scan_V], [d_scan_I], [d_scan_V]]
print,file
help,file

;save,scan_I, scan_V, d_scan_I, d_scan_V, model, I_record, V_record,$
;filename='E:\NATASHA\moskal\data\vse.wrs'

	end