Commit 410f50ab authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

cdilib.c update

parent c7e3aad9
......@@ -481,6 +481,11 @@
!
! STREAM control routines
!
INTEGER cdiGetFiletype
! (CHARACTER*(*) path,
! INTEGER byteorder)
EXTERNAL cdiGetFiletype
INTEGER streamOpenRead
! (CHARACTER*(*) path)
EXTERNAL streamOpenRead
......
......@@ -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)
......
......@@ -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
......
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