Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
a44bcb31
Commit
a44bcb31
authored
Feb 26, 2018
by
Ralf Mueller
Browse files
add autogenerated code for f2003 interface
parent
1e29dab0
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/mo_cdi.f90
View file @
a44bcb31
! >>> Warning: This is a generated file. If you modify it, you get what you deserve. <<<
!
! Generated by "../
../../
interfaces/f2003/bindGen.rb" from input file "../
../../
src/cdi.h".
! Generated by "../interfaces/f2003/bindGen.rb" from input file "../src/cdi.h".
module
mo_cdi
use
iso_c_binding
...
...
@@ -491,6 +491,8 @@ module mo_cdi
integer
(
c_int
),
public
,
parameter
::
CDI_KEY_REVNUMBER
=
817
public
::
cdiDefKeyInt
public
::
cdiInqKeyInt
public
::
cdiDefKeyBytes
public
::
cdiInqKeyBytes
public
::
cdiDefKeyString
public
::
cdiInqKeyString
public
::
cdiInqKeyLen
...
...
@@ -1941,6 +1943,28 @@ module mo_cdi
integer
(
c_int
)
::
f_result
end
function
cdiInqKeyInt
function
cdiDefKeyBytes
(
cdiID_dummy
,
varID_dummy
,
key_dummy
,
bytes_dummy
,&
&
length_dummy
)
bind
(
c
,
name
=
'cdiDefKeyBytes'
)
result
(
f_result
)
import
c_int
,
c_signed_char
integer
(
c_int
),
value
::
cdiID_dummy
integer
(
c_int
),
value
::
varID_dummy
integer
(
c_int
),
value
::
key_dummy
integer
(
kind
=
c_signed_char
),
intent
(
in
)
::
bytes_dummy
(
*
)
integer
(
c_int
),
value
::
length_dummy
integer
(
c_int
)
::
f_result
end
function
cdiDefKeyBytes
function
cdiInqKeyBytes
(
cdiID_dummy
,
varID_dummy
,
key_dummy
,
bytes_dummy
,&
&
length_dummy
)
bind
(
c
,
name
=
'cdiInqKeyBytes'
)
result
(
f_result
)
import
c_int
,
c_signed_char
integer
(
c_int
),
value
::
cdiID_dummy
integer
(
c_int
),
value
::
varID_dummy
integer
(
c_int
),
value
::
key_dummy
integer
(
kind
=
c_signed_char
),
intent
(
inout
)
::
bytes_dummy
(
*
)
integer
(
c_int
),
intent
(
inout
)
::
length_dummy
integer
(
c_int
)
::
f_result
end
function
cdiInqKeyBytes
function
cdiInqKeyLen
(
cdiID_dummy
,
varID_dummy
,
key_dummy
,
length_dummy
)&
&
bind
(
c
,
name
=
'cdiInqKeyLen'
)
result
(
f_result
)
import
c_int
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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