PRO RD_NRH2I, FILE, HEURE, Str_inf2d, DATA, STR, STOKES=Stokes, INDIC =indic

STR = {nrh_str_image}

IF NOT KEYWORD_SET(STOKES) THEN Stokes=0

IF Stokes EQ 2 AND Str_inf2d.Physpar NE 2 THEN BEGIN
     r= WIDGET_MESSAGE('StokesV no exist for this file')
        Return & END

IF NOT KEYWORD_SET(INDIC) THEN INDIC = TIME_IND_NRH(File, Heure)

IF Str_Inf2d.Instrume EQ 'HSSI' THEN BEGIN 
    COL = fxbcolnum(Str_Inf2d.Unit,'DATA') 

ENDIF ELSE BEGIN    
    IF Stokes EQ 0 THEN BEGIN
        COL = fxbcolnum(Str_Inf2d.Unit,'STOKESI')
        Str.Physpar = 'STOKESI'
    END
    IF Stokes EQ 1 THEN BEGIN
        COL = fxbcolnum(Str_Inf2d.Unit,'STOKESV')
        Str.Physpar = 'STOKESV'
    END
ENDELSE

    FXBREAD, Str_inf2d.unit, TEMPS, Str_Inf2d.Ctime, Indic+1
    FXBREAD, Str_inf2d.Unit, DATA, Col, Indic+1

    Str.date = Str_inf2d.date
    Str.time = msh(Temps)
    Str.Freq = STRCOMPRESS(Str_inf2d.Freq,$
                /REMOVE_ALL)+'MHz'
    Str.Instrume = Str_inf2d.instrume
    Str.Crpixx =  Str_inf2d.Xcen
    Str.Crpixy =  Str_inf2d.Ycen
    Str.ray = Str_inf2d.Ray

END