Commit 865e50cd authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

cdilib.c/bindings update.

* There is still work to reconcile C++ header changes with the interface
  generators.
parent a7c725ef
......@@ -88,7 +88,7 @@ Define the reference URI for an unstructured grid.
\section*{\tt \htmlref{gridDefUUID}{gridDefUUID}}
\begin{verbatim}
void gridDefUUID (int gridID, const unsigned char uuid[CDI_UUID_SIZE]);
void gridDefUUID (int gridID, const unsigned char *uuid);
\end{verbatim}
Define the UUID of an unstructured grid.
......@@ -295,7 +295,7 @@ Get the type of a Grid.
\section*{\tt \htmlref{gridInqUUID}{gridInqUUID}}
\begin{verbatim}
void gridInqUUID (int gridID, unsigned char uuid[CDI_UUID_SIZE]);
void gridInqUUID (int gridID, unsigned char *uuid);
\end{verbatim}
Get the UUID of an unstructured grid.
......
......@@ -88,7 +88,7 @@ Define the reference URI for an unstructured grid.
\section*{\tt \htmlref{gridDefUUID}{gridDefUUID}}
\begin{verbatim}
SUBROUTINE gridDefUUID (INTEGER gridID, INTEGER*1(16) uuid)
SUBROUTINE gridDefUUID (INTEGER gridID, INTEGER*1(*) uuid)
\end{verbatim}
Define the UUID of an unstructured grid.
......@@ -295,7 +295,7 @@ Get the type of a Grid.
\section*{\tt \htmlref{gridInqUUID}{gridInqUUID}}
\begin{verbatim}
SUBROUTINE gridInqUUID (INTEGER gridID, INTEGER*1(16) uuid)
SUBROUTINE gridInqUUID (INTEGER gridID, INTEGER*1(*) uuid)
\end{verbatim}
Get the UUID of an unstructured grid.
......
......@@ -4,7 +4,7 @@
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, June 2015
! Uwe Schulzweida, MPI-MET, Hamburg, July 2015
!
INTEGER CDI_MAX_NAME
......@@ -1714,12 +1714,12 @@
! gridDefUUID
! (INTEGER gridID,
! INTEGER*1(16) uuid)
! INTEGER*1(*) uuid)
EXTERNAL gridDefUUID
! gridInqUUID
! (INTEGER gridID,
! INTEGER*1(16) uuid)
! INTEGER*1(*) uuid)
EXTERNAL gridInqUUID
!
......
......@@ -4,7 +4,7 @@
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, June 2015
! Uwe Schulzweida, MPI-MET, Hamburg, July 2015
!
!
......
......@@ -479,8 +479,6 @@ module mo_cdi
public gridInqPosition
public gridDefReference
public gridInqReference
public gridDefUUID
public gridInqUUID
public gridDefLCC
public gridInqLCC
public gridDefLcc2
......@@ -5574,32 +5572,6 @@ contains
end do
end function gridInqReference
subroutine gridDefUUID(gridID_dummy, uuid_dummy)
integer(c_int), value :: gridID_dummy
character(kind = c_char), intent(in) :: uuid_dummy(CDI_UUID_SIZE)
interface
subroutine lib_gridDefUUID(gridID_dummy, uuid_dummy) bind(c, name = 'gridDefUUID')
import c_char, c_int
integer(c_int), value :: gridID_dummy
character(kind = c_char), intent(in) :: uuid_dummy(*)
end subroutine lib_gridDefUUID
end interface
call lib_gridDefUUID(gridID_dummy, uuid_dummy)
end subroutine gridDefUUID
subroutine gridInqUUID(gridID_dummy, uuid_dummy)
integer(c_int), value :: gridID_dummy
character(kind = c_char), intent(inout) :: uuid_dummy(CDI_UUID_SIZE)
interface
subroutine lib_gridInqUUID(gridID_dummy, uuid_dummy) bind(c, name = 'gridInqUUID')
import c_char, c_int
integer(c_int), value :: gridID_dummy
character(kind = c_char), intent(inout) :: uuid_dummy(*)
end subroutine lib_gridInqUUID
end interface
call lib_gridInqUUID(gridID_dummy, uuid_dummy)
end subroutine gridInqUUID
subroutine gridDefLCC(gridID_dummy, originLon_dummy, originLat_dummy, lonParY_dummy, lat1_dummy, lat2_dummy, xinc_dummy, yinc_dumm&
&y, projflag_dummy, scanflag_dummy)
integer(c_int), value :: gridID_dummy
......
Supports Markdown
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