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
865e50cd
Commit
865e50cd
authored
Jul 22, 2015
by
Thomas Jahns
🤸
Browse files
cdilib.c/bindings update.
* There is still work to reconcile C++ header changes with the interface generators.
parent
a7c725ef
Changes
5
Hide whitespace changes
Inline
Side-by-side
doc/tex/c_quick_ref.tex
View file @
865e50cd
...
...
@@ -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.
...
...
doc/tex/f_quick_ref.tex
View file @
865e50cd
...
...
@@ -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.
...
...
src/cdi.inc
View file @
865e50cd
...
...
@@ -4,7 +4,7 @@
!
!
Author
:
!
-------
!
Uwe
Schulzweida
,
MPI
-
MET
,
Hamburg
,
Ju
ne
2015
!
Uwe
Schulzweida
,
MPI
-
MET
,
Hamburg
,
Ju
ly
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
!
...
...
src/cdipio.inc
View file @
865e50cd
...
...
@@ -4,7 +4,7 @@
!
!
Author
:
!
-------
!
Uwe
Schulzweida
,
MPI
-
MET
,
Hamburg
,
Ju
ne
2015
!
Uwe
Schulzweida
,
MPI
-
MET
,
Hamburg
,
Ju
ly
2015
!
!
...
...
src/mo_cdi.f90
View file @
865e50cd
...
...
@@ -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
...
...
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