cdilib.c update

src/cdi.inc

@@ -481,6 +481,11 @@
 !
 !  STREAM control routines
 !
+      INTEGER         cdiGetFiletype
+!                                    (CHARACTER*(*)   path,
+!                                     INTEGER         byteorder)
+      EXTERNAL        cdiGetFiletype
+
       INTEGER         streamOpenRead
 !                                    (CHARACTER*(*)   path)
       EXTERNAL        streamOpenRead

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)

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