Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
040227a7
Commit
040227a7
authored
Oct 23, 2015
by
Thomas Jahns
🤸
Browse files
Add namespaceGetActive to public API.
parent
f37b2a7a
Changes
4
Hide whitespace changes
Inline
Side-by-side
src/cdi.h
View file @
040227a7
...
...
@@ -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
View file @
040227a7
...
...
@@ -440,6 +440,9 @@
!
(
INTEGER
namespaceID
)
EXTERNAL
namespaceSetActive
INTEGER
namespaceGetActive
EXTERNAL
namespaceGetActive
!
namespaceDelete
!
(
INTEGER
namespaceID
)
EXTERNAL
namespaceDelete
...
...
src/cdiFortran.c
View file @
040227a7
...
...
@@ -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
View file @
040227a7
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment