FUNCTION rh_no   
;  h = str_sep(strcompress(systime(0)),' ')
;  h1 = str_sep(h(3),':')
;  RETURN,'_'+h(2)+h(1)+h1(0)+h1(1)+h1(2)
  julian=systime(0,/JULIAN)
  caldat, julian,mois, jour, an,h,min,sec
  sec=fix(sec)
  s=''
  s='_'+strcompress(string(format='(I4.4)',an))
  s=s+strcompress(string(format='(I2.2)',mois))
  s=s+strcompress(string(format='(I2.2)',jour))
  s=s+'_'+strcompress(string(format='(I2.2)',h))
  s=s+strcompress(string(format='(I2.2)',min))
  s=s+strcompress(string(format='(I2.2)',sec))
  return, s
 END