diff --git a/src/cdi.inc b/src/cdi.inc index 55519dbfa192d005b024146124481a8aa8cb674a..022964b6bc9de3e0099324b010c0354b4895e0d9 100644 --- a/src/cdi.inc +++ b/src/cdi.inc @@ -481,6 +481,11 @@ ! ! STREAM control routines ! + INTEGER cdiGetFiletype +! (CHARACTER*(*) path, +! INTEGER byteorder) + EXTERNAL cdiGetFiletype + INTEGER streamOpenRead ! (CHARACTER*(*) path) EXTERNAL streamOpenRead diff --git a/src/cdiFortran.c b/src/cdiFortran.c index 11486ec4f4c3ef2ad31cf597db70a2d65a5f4258..e69d3cef53387121b7b080fcd62b498569225dc8 100644 --- a/src/cdiFortran.c +++ b/src/cdiFortran.c @@ -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) diff --git a/src/mo_cdi.f90 b/src/mo_cdi.f90 index b2db27883c255d145b6a4da3703d2dbb5e735262..dbd531d47035b9e43fe09579810c7e913e7d708e 100644 --- a/src/mo_cdi.f90 +++ b/src/mo_cdi.f90 @@ -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