PRO NRH2_TRISOPH, Data, Time, Lim, Info, $ NLEVELS=Nlevels, MAXP=Maxp, MINP=Minp, $ LAB_TITLE=Str_Label IF NOT KEYWORD_SET (NLEVELS) THEN NLEVELS=10 IF NOT KEYWORD_SET (MAXP) THEN MAXP=90 IF NOT KEYWORD_SET (MINP) THEN MINP=5 Rd= IND_RS(Lim.Xd, Info.Xcen, Info.ray) Rf= IND_RS(Lim.Xf, Info.Ycen, Info.ray) SX= Size(Data) Incre=(Rf-rd) / Sx(2) YAXIS = Rd + Findgen(Sx(2)) * Incre ST = Size(Time) XAXIS = LONARR(St(1)) FOR I = 0, St(1)-1 DO Xaxis(i) = Hms(Time(i)) Taxis= [Xaxis[0], Xaxis[St(1)-1]] ; **** Label Titre LABEL= '' IF N_TAGS(Str_label)NE 0 THEN BEGIN LFREQ = '' LDATE= '' LHR= '' LINSTR= '' LPHYS= '' IF Str_label.Date EQ 1 THEN Ldate = Info.Date IF Str_label.freq EQ 1 THEN Lfreq = STRING(Info.Freq,FORMAT='(F5.1)') IF Str_label.heure EQ 1 THEN Lhr = STRING(time(0))+ ' to '+$ STRING(Time(st(1)-1)) IF Str_label.instrume EQ 1 THEN Linstr = Info.Instrume IF Str_label.Physpar EQ 1 THEN BEGIN IF Info.Physpar EQ 1 THEN Lphys = 'I' $ ELSE Lphys = 'V' ENDIF Label = str_label.free+' '+Linstr+' '+Lphys+' '+$ lfreq+' '+ldate+' '+lhr ENDIF ; ******FIN Label MAX = MAX(Data) Max = Max*Maxp/100 & Min = Max*Minp/100 MILSEC_AXIS, Taxis, tickv, tickl, ticks CONTOUR, Data, Xaxis, Yaxis,$ NLEVELS= Nlevels,MAX_VALUE=Max, MIN_VALUE=Min, $ XSTYLE=1, YSTYLE=1,YRANGE=[Rd,Rf], $ XRANGE=[Taxis],XTICKV=Tickv,XTICKS=Ticks[0],XMINOR=ticks[1],$ XTICKNAME=Tickl, TICKLEN = -0.02, TITLE=Label, $ CHARSIZE=0.6, YMARGIN = [8,8] EN