PRO NRHRCALIBRATION, File, REPERT=Repert, HDEB=Hdeb, DUREE= Duree, $
    CALIB = Tcal , TEST= Test

IF NOT KEYWORD_SET(REPERT) THEN $
            CD, CURRENT= Repert
    Sep = '/'
        IF !VERSION.OS_FAMILY EQ 'Windows' THEN Sep= '\'
    IF STRMID(Repert, STRLEN(Repert)-1,1) NE Sep THEN $
        Repert= Repert+sep

IF NOT KEYWORD_SET(DUREE) THEN Duree= 42    ;duree de la calibration en sec
IF NOT KEYWORD_SET(HDEB) THEN Hdeb=0

HD0= HEADFITS(File)
    Nfreq = FXPAR(Hd0, 'NFREQ')
    TCAL = FLTARR(4001, Nfreq)
    Lfreq = NRHR_LFREQ(Hd0)

FOR I= 0, Nfreq-1 DO BEGIN
        IFREQ= FLOAT(Lfreq[I])
        PRINT,'Frequence', I,Ifreq,'MHz'
    IF NOT KEYWORD_SET(TEST) THEN BEGIN
        NRHR_CAL, File, I, Tab,TIME_STAR= Tstart, HDEB=Hdeb, $
            DUREE=Duree
        Tcal[0,I] = Ifreq
        Tcal[1:4000,I]= Tab
    ENDIF ELSE BEGIN
        Res= DIALOG_MESSAGE('Frequence:'+String(Ifreq)+' MHz',$
                        /QUESTION)
        IF Res EQ 'No' THEN RETURN
        NRHR_CAL, File, I, Tab,TIME_STAR= Tstart, HDEB=Hdeb, $
            /PLOT, DUREE=Duree
        IF I EQ NFREQ-1 THEN BEGIN
            Res= DIALOG_MESSAGE('Fin de calibration')
        RETURN & ENDIF
    ENDELSE
ENDFOR

IF NOT KEYWORD_SET(TEST) THEN BEGIN
    HFILE= STRMID(Tstart,0,2)+STRMID(Tstart,3,2)+STRMID(Tstart,6,2)
        NCHAR= STRLEN(File)
    FNOM= STRMID(File,Nchar-24,14)+Hfile+'.cal'
  FNOM='calibration.bin'
    OPENW, Unit, Repert+Fnom, /GET_LUN, VAX_FLOAT
    WRITEU, Unit, Nfreq, Tcal
    CLOSE, Unit
    FREE_LUN, Unit

ENDIF

EN