FUNCTION read_vermair, name, debut, fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex
@common
;------------------------------------------------------------ 
   if name EQ 'un' then name = 'vozocrtx'
   if name EQ 'vn' then name = 'vomecrty'
   if debut EQ fin then begin
      res = lec(name,debut,nomexp, BOXZOOM=boxzoom, _EXTRA = ex)
   ENDIF ELSE res = lect(name,debut,fin, nomexp, BOXZOOM=boxzoom, _EXTRA = ex)
;------------------------------------------------------------ 
   return, {tab:res, grille:vargrid, unite:'', experience:varexp, nom:varname}
end