FUNCTION def_dbase, expid

; find data base of expid - uses array data_bases defined in post_it

@common
@com_eg

; special suffix ?

   nbases = n_elements(spec_bases)-1
   ibase = 0

; loop on spec database definition

   WHILE ibase LE nbases - 1 DO BEGIN
      argvar = strsplit((spec_bases(ibase))[0], ' ', /EXTRACT)
      IF strpos(expid,  argvar[0]) NE -1 THEN BEGIN 
         database = (strsplit((spec_bases(ibase))[0], ' ', /EXTRACT))[2]
         GOTO,  fin 
      ENDIF 
      ibase =  ibase + 1
   ENDWHILE 

   nbase = n_elements(data_bases)-1
   ibase = 1

; loop on database definition

   WHILE ibase LE nbase - 1 DO BEGIN
      argvar = strsplit((data_bases(ibase))[0], ' ', /EXTRACT)
      IF strmid(argvar[0], 0, strlen(argvar[0])-3) EQ expid THEN BEGIN 
         database = (strsplit((data_bases(ibase))[0], ' ', /EXTRACT))[2]
         GOTO, fin 
      ENDIF 
      ibase =  ibase + 1
   ENDWHILE 

; default data base : data_bases[0]

   ibase = 0
   database = (strsplit((data_bases(ibase))[0], ' ', /EXTRACT))[2]

fin:
   ; check if common variable path used

   ind1 = strpos(database, '<')
   IF ind1 NE -1 THEN BEGIN
      database_split = strsplit(database, '<>', /EXTRACT)
      path_base = database_split[1]
      command = 'path_var = '+path_base
      res = execute(command)
      database_split[1] = path_var
      database = strjoin(database_split)
      database = strsed(database, '//', '/')
   ENDIF 

   return,  database

END