PRO read_stokes,file,lambda,Iobs,Qobs,Uobs,Vobs

;*********************************************************
	;Oct 2002
	;Rutina de lectura para ficheros con formato:
	;lambda(j) (mA), I(j), Q(j), U(j), V(j).
	;ENTRADA: Nombre del fichero a leer
	;SALIDA: lambda, I, Q, U, V
;*********************************************************


lambda=0d0   & Iobs=0d0   & Qobs=0d0   & Uobs=0d0   & Vobs=0d0
lambda1=0d0  & Iobs1=0d0  & Qobs1=0d0  & Uobs1=0d0  & Vobs1=0d0

openr,unit,file,/get_lun
readf,unit,lambda,Iobs,Qobs,Uobs,Vobs

while NOT EOF(unit) do begin
   readf,unit,lambda1,Iobs1,Qobs1,Uobs1,Vobs1
   lambda=[lambda,lambda1]
   Iobs=[Iobs,Iobs1] & Qobs=[Qobs,Qobs1]
   Uobs=[Uobs,Uobs1] & Vobs=[Vobs,Vobs1]
end

close,unit
free_lun,unit

END