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