Add namespaceGetActive to public API.

src/cdi.h

@@ -272,6 +272,7 @@ void    cdiDefGlobal(const char *string, int val);
 
 int     namespaceNew(void);
 void    namespaceSetActive(int namespaceID);
+int     namespaceGetActive(void);
 void    namespaceDelete(int namespaceID);
 
 

src/cdi.inc

@@ -440,6 +440,9 @@
 !                                    (INTEGER         namespaceID)
       EXTERNAL        namespaceSetActive
 
+      INTEGER         namespaceGetActive
+      EXTERNAL        namespaceGetActive
+
 !                     namespaceDelete
 !                                    (INTEGER         namespaceID)
       EXTERNAL        namespaceDelete

src/cdiFortran.c

@@ -88,6 +88,7 @@ FCALLSCFUN0 (DOUBLE, cdiInqMissval, CDIINQMISSVAL, cdiinqmissval)
 FCALLSCSUB2 (cdiDefGlobal, CDIDEFGLOBAL, cdidefglobal, STRING, INT)
 FCALLSCFUN0 (INT, namespaceNew, NAMESPACENEW, namespacenew)
 FCALLSCSUB1 (namespaceSetActive, NAMESPACESETACTIVE, namespacesetactive, INT)
+FCALLSCFUN0 (INT, namespaceGetActive, NAMESPACEGETACTIVE, namespacegetactive)
 FCALLSCSUB1 (namespaceDelete, NAMESPACEDELETE, namespacedelete, INT)
 
 /*  CDI converter routines  */

src/mo_cdi.f90

@@ -215,6 +215,7 @@ module mo_cdi
   public :: cdiDefGlobal
   public :: namespaceNew
   public :: namespaceSetActive
+  public :: namespaceGetActive
   public :: namespaceDelete
   public :: cdiParamToString
   public :: cdiDecodeParam
@@ -668,6 +669,12 @@ module mo_cdi
       integer(c_int), value :: namespaceID_dummy
     end subroutine namespaceSetActive
 
+    function namespaceGetActive() bind(c, name = 'namespaceGetActive')&
+    & result(f_result)
+      import c_int
+      integer(c_int) :: f_result
+    end function namespaceGetActive
+
     subroutine namespaceDelete(namespaceID_dummy) bind(c, name =&
     & 'namespaceDelete')
       import c_int