Index: LMDZ6/trunk/libf/misc/readTracFiles_mod.f90
===================================================================
--- LMDZ6/trunk/libf/misc/readTracFiles_mod.f90	(revision 4325)
+++ LMDZ6/trunk/libf/misc/readTracFiles_mod.f90	(revision 4326)
@@ -12,5 +12,5 @@
   PUBLIC :: trac_type, setGeneration, indexUpdate               !--- TRACERS  DESCRIPTION ASSOCIATED TOOLS
   PUBLIC :: testTracersFiles, readTracersFiles                  !--- TRACERS FILES READING ROUTINES
-  PUBLIC :: getKey, fGetKey, setDirectKeys                      !--- TOOLS TO GET/SET KEYS FROM/TO  tracers & isotopes
+  PUBLIC :: getKey, fGetKey, fGetKeys, setDirectKeys            !--- TOOLS TO GET/SET KEYS FROM/TO  tracers & isotopes
   PUBLIC :: getKeysDBase,    setKeysDBase                       !--- TOOLS TO GET/SET THE DATABASE (tracers & isotopes)
 
@@ -100,5 +100,5 @@
   INTERFACE  old2newH2O;   MODULE PROCEDURE  old2newH2O_1,  old2newH2O_m;        END INTERFACE old2newH2O
   INTERFACE  new2oldH2O;   MODULE PROCEDURE  new2oldH2O_1,  new2oldH2O_m;        END INTERFACE new2oldH2O
-  INTERFACE fGetKey;       MODULE PROCEDURE fgetKeyIdx_s1, fgetKeyNam_s1, fgetKey_sm;        END INTERFACE fGetKey
+  INTERFACE fGetKey;       MODULE PROCEDURE fgetKeyIdx_s1, fgetKeyNam_s1;        END INTERFACE fGetKey
   INTERFACE tracersSubset; MODULE PROCEDURE trSubset_Indx, trSubset_Name, trSubset_gen0Name; END INTERFACE tracersSubset
   INTERFACE idxAncestor;   MODULE PROCEDURE idxAncestor_1, idxAncestor_m, idxAncestor_mt;    END INTERFACE idxAncestor
@@ -1410,5 +1410,5 @@
 END FUNCTION fgetKeyNam_s1
 !==============================================================================================================================
-FUNCTION fgetKey_sm(keyn, ky, def_val, lerr) RESULT(val)
+FUNCTION fgetKeys(keyn, ky, def_val, lerr) RESULT(val)
 CHARACTER(LEN=maxlen),        ALLOCATABLE :: val(:)
   CHARACTER(LEN=*),           INTENT(IN)  :: keyn
@@ -1421,5 +1421,5 @@
   val = [(fgetKeyIdx_s1(it, keyn, ky, def_val, ler(it)), it = 1, SIZE(ky))]
   IF(PRESENT(lerr)) lerr = ANY(ler)
-END FUNCTION fgetKey_sm
+END FUNCTION fgetKeys
 !==============================================================================================================================