Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
23deb38b
Commit
23deb38b
authored
Jul 29, 2015
by
Thomas Jahns
🤸
Browse files
Add C++ work-around.
parent
d9fbb88c
Changes
5
Hide whitespace changes
Inline
Side-by-side
doc/tex/c_quick_ref.tex
View file @
23deb38b
...
...
@@ -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
View file @
23deb38b
...
...
@@ -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
View file @
23deb38b
...
...
@@ -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
View file @
23deb38b
...
...
@@ -1719,7 +1719,7 @@
!
gridInqUUID
!
(
INTEGER
gridID
,
!
INTEGER
*
1
(
*
)
uuid
)
!
INTEGER
*
1
(
16
)
uuid
)
EXTERNAL
gridInqUUID
!
...
...
src/mo_cdi.f90
View file @
23deb38b
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment