;+ --------------------------------------------------------------------
;                     Type de fichier
; --------------------------------------------------------------------
; rh_fich_ctr, fich, path, typ1, typ2
;	fich:		nom du fichier
; 	path: 		directory du fichier
;	typ1:		ier caractere du nom du fichier
;	typ2:		2eme caractere du nom du fichier
;- ____________________________________________________________________

pro rh_fich_ctr, fich, path, typ1, typ2

  typ1=''
  typ2=''
  path=''
  IF fich EQ '' THEN RETURN

  pos = rstrpos(fich,rh_separator())
  path = strmid(fich,0,pos)
  typ1 = strmid(fich,pos+1,1)
  typ2 = strlowcase(strmid(fich,pos+2,1))

  RETURN
END