Commit 23deb38b authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Add C++ work-around.

parent d9fbb88c
......@@ -295,7 +295,7 @@ Get the type of a Grid.
\section*{\tt \htmlref{gridInqUUID}{gridInqUUID}}
\begin{verbatim}
void gridInqUUID (int gridID, unsigned char *uuid);
void gridInqUUID (int gridID, unsigned char uuid[CDI_UUID_SIZE]);
\end{verbatim}
Get 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(*) uuid)
SUBROUTINE gridInqUUID (INTEGER gridID, INTEGER*1(16) uuid)
\end{verbatim}
Get the UUID of an unstructured grid.
......
......@@ -849,8 +849,11 @@ void gridDefUUID(int gridID, const unsigned char uuid[CDI_UUID_SIZE]);
#endif
/* gridInqUUID: Get the UUID of an unstructured grid */
#ifdef __cplusplus
void gridInqUUID(int gridID, unsigned char *uuid);
#else
void gridInqUUID(int gridID, unsigned char uuid[CDI_UUID_SIZE]);
#endif
/* Lambert Conformal Conic grid (GRIB version) */
void gridDefLCC(int gridID, double originLon, double originLat, double lonParY, double lat1, double lat2, double xinc, double yinc, int projflag, int scanflag);
......
......@@ -1719,7 +1719,7 @@
! gridInqUUID
! (INTEGER gridID,
! INTEGER*1(*) uuid)
! INTEGER*1(16) uuid)
EXTERNAL gridInqUUID
!
......
......@@ -480,6 +480,7 @@ module mo_cdi
public gridDefReference
public gridInqReference
public gridDefUUID
public gridInqUUID
public gridDefLCC
public gridInqLCC
public gridDefLcc2
......@@ -5586,6 +5587,19 @@ contains
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
......
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