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
410f50ab
Commit
410f50ab
authored
Nov 25, 2014
by
Uwe Schulzweida
Browse files
cdilib.c update
parent
c7e3aad9
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/cdi.inc
View file @
410f50ab
...
...
@@ -481,6 +481,11 @@
!
!
STREAM
control
routines
!
INTEGER
cdiGetFiletype
!
(
CHARACTER
*
(
*
)
path
,
!
INTEGER
byteorder
)
EXTERNAL
cdiGetFiletype
INTEGER
streamOpenRead
!
(
CHARACTER
*
(
*
)
path
)
EXTERNAL
streamOpenRead
...
...
src/cdiFortran.c
View file @
410f50ab
...
...
@@ -96,6 +96,7 @@ FCALLSCFUN3 (INT, cdiEncodeTime, CDIENCODETIME, cdiencodetime, INT, INT, INT)
/* STREAM control routines */
FCALLSCFUN2
(
INT
,
cdiGetFiletype
,
CDIGETFILETYPE
,
cdigetfiletype
,
STRING
,
PINT
)
FCALLSCFUN1
(
INT
,
streamOpenRead
,
STREAMOPENREAD
,
streamopenread
,
STRING
)
FCALLSCFUN2
(
INT
,
streamOpenWrite
,
STREAMOPENWRITE
,
streamopenwrite
,
STRING
,
INT
)
FCALLSCFUN1
(
INT
,
streamOpenAppend
,
STREAMOPENAPPEND
,
streamopenappend
,
STRING
)
...
...
src/mo_cdi.f90
View file @
410f50ab
...
...
@@ -305,6 +305,14 @@ module mo_cdi
integer
(
kind
=
c_int
)
::
cdiEncodeTime
end
function
cdiEncodeTime
end
interface
interface
function
cdiGetFiletype
(
path
,
byteorder
)
bind
(
c
,
name
=
'cdiGetFiletype'
)
import
::
c_char
,
c_int
character
(
kind
=
c_char
),
dimension
(
*
)
::
path
integer
(
kind
=
c_int
),
intent
(
out
)
::
byteorder
integer
(
kind
=
c_int
)
::
cdiGetFiletype
end
function
cdiGetFiletype
end
interface
interface
function
streamOpenRead
(
path
)
bind
(
c
,
name
=
'streamOpenRead'
)
import
::
c_char
,
c_int
...
...
@@ -2942,6 +2950,7 @@ module mo_cdi
public
::
cdiEncodeDate
public
::
cdiDecodeTime
public
::
cdiEncodeTime
public
::
cdiGetFiletype
public
::
streamOpenRead
public
::
streamOpenWrite
public
::
streamOpenAppend
...
...
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