Commit 040227a7 authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Add namespaceGetActive to public API.

parent f37b2a7a
......@@ -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);
......
......@@ -440,6 +440,9 @@
! (INTEGER namespaceID)
EXTERNAL namespaceSetActive
INTEGER namespaceGetActive
EXTERNAL namespaceGetActive
! namespaceDelete
! (INTEGER namespaceID)
EXTERNAL namespaceDelete
......
......@@ -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 */
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment