Add C++ work-around.

doc/tex/c_quick_ref.tex

@@ -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.

doc/tex/f_quick_ref.tex

@@ -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.

src/cdi.h

@@ -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);

src/cdi.inc

@@ -1719,7 +1719,7 @@
 
 !                     gridInqUUID
 !                                    (INTEGER         gridID,
-!                                     INTEGER*1(*)    uuid)
+!                                     INTEGER*1(16)   uuid)
       EXTERNAL        gridInqUUID
 
 !

src/mo_cdi.f90

@@ -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