From 410f50abad0f5d987244428574626cd379cce598 Mon Sep 17 00:00:00 2001
From: Uwe Schulzweida <uwe.schulzweida@mpimet.mpg.de>
Date: Tue, 25 Nov 2014 14:25:33 +0000
Subject: [PATCH] cdilib.c update
---
src/cdi.inc | 5 +++++
src/cdiFortran.c | 1 +
src/mo_cdi.f90 | 9 +++++++++
3 files changed, 15 insertions(+)
diff --git a/src/cdi.inc b/src/cdi.inc
index 55519dbfa..022964b6b 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 11486ec4f..e69d3cef5 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 b2db27883..dbd531d47 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
--
GitLab