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
af78987a
Commit
af78987a
authored
Apr 23, 2013
by
Uwe Schulzweida
Browse files
make_fint.c: remove compiler warning
parent
0fd5fd66
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/cdi.inc
View file @
af78987a
...
...
@@ -1642,12 +1642,12 @@
CHARACTER
(
80
)
gridInqUUID
!
(
INTEGER
gridID
,
!
CHARACTER
*
(
*
)
uuid
)
!
CHARACTER
*
(
*
)
uuid
_cbuf
)
EXTERNAL
gridInqUUID
!
gridDefUUID
!
(
INTEGER
gridID
,
!
CHARACTER
*
(
*
)
uuid
)
!
CHARACTER
*
(
*
)
uuid
_cbuf
)
EXTERNAL
gridDefUUID
!
...
...
@@ -1851,12 +1851,12 @@
!
zaxisDefUUID
!
(
INTEGER
zaxisID
,
!
CHARACTER
*
(
*
)
uuid
)
!
CHARACTER
*
(
*
)
uuid
_cbuf
)
EXTERNAL
zaxisDefUUID
CHARACTER
(
80
)
zaxisInqUUID
!
(
INTEGER
zaxisID
,
!
CHARACTER
*
(
*
)
uuid
)
!
CHARACTER
*
(
*
)
uuid
_cbuf
)
EXTERNAL
zaxisInqUUID
INTEGER
zaxisInqReference
...
...
src/cdiFortran.c
View file @
af78987a
...
...
@@ -285,10 +285,10 @@ FCALLSCFUN6 (INT, vlistInqAtt, VLISTINQATT, vlistinqatt, INT, INT, INT, PSTRING,
FCALLSCFUN3
(
INT
,
vlistDelAtt
,
VLISTDELATT
,
vlistdelatt
,
INT
,
INT
,
STRING
)
FCALLSCFUN6
(
INT
,
vlistDefAttInt
,
VLISTDEFATTINT
,
vlistdefattint
,
INT
,
INT
,
STRING
,
INT
,
INT
,
PINT
)
FCALLSCFUN6
(
INT
,
vlistDefAttFlt
,
VLISTDEFATTFLT
,
vlistdefattflt
,
INT
,
INT
,
STRING
,
INT
,
INT
,
PDOUBLE
)
FCALLSCFUN5
(
INT
,
vlistDefAttTxt
,
VLISTDEFATTTXT
,
vlistdefatttxt
,
INT
,
INT
,
STRING
,
INT
,
CBUF
)
FCALLSCFUN5
(
INT
,
vlistDefAttTxt
,
VLISTDEFATTTXT
,
vlistdefatttxt
,
INT
,
INT
,
STRING
,
INT
,
STRING
)
FCALLSCFUN5
(
INT
,
vlistInqAttInt
,
VLISTINQATTINT
,
vlistinqattint
,
INT
,
INT
,
STRING
,
INT
,
PINT
)
FCALLSCFUN5
(
INT
,
vlistInqAttFlt
,
VLISTINQATTFLT
,
vlistinqattflt
,
INT
,
INT
,
STRING
,
INT
,
PDOUBLE
)
FCALLSCFUN5
(
INT
,
vlistInqAttTxt
,
VLISTINQATTTXT
,
vlistinqatttxt
,
INT
,
INT
,
STRING
,
INT
,
CBUF
)
FCALLSCFUN5
(
INT
,
vlistInqAttTxt
,
VLISTINQATTTXT
,
vlistinqatttxt
,
INT
,
INT
,
STRING
,
INT
,
PSTRING
)
/* GRID routines */
...
...
@@ -365,8 +365,8 @@ FCALLSCFUN1 (INT, gridInqPosition, GRIDINQPOSITION, gridinqposition, INT)
FCALLSCSUB2
(
gridDefPosition
,
GRIDDEFPOSITION
,
griddefposition
,
INT
,
INT
)
FCALLSCFUN2
(
INT
,
gridInqReference
,
GRIDINQREFERENCE
,
gridinqreference
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridDefReference
,
GRIDDEFREFERENCE
,
griddefreference
,
INT
,
STRING
)
FCALLSCFUN2
(
STRING
,
gridInqUUID
,
GRIDINQUUID
,
gridinquuid
,
INT
,
CBUF
)
FCALLSCSUB2
(
gridDefUUID
,
GRIDDEFUUID
,
griddefuuid
,
INT
,
CBUF
)
FCALLSCFUN2
(
STRING
,
gridInqUUID
,
GRIDINQUUID
,
gridinquuid
,
INT
,
PSTRING
)
FCALLSCSUB2
(
gridDefUUID
,
GRIDDEFUUID
,
griddefuuid
,
INT
,
STRING
)
/* Lambert Conformal Conic grid (GRIB version) */
...
...
@@ -412,8 +412,8 @@ FCALLSCSUB2 (zaxisInqLevels, ZAXISINQLEVELS, zaxisinqlevels, INT, PDOUBLE)
FCALLSCSUB3
(
zaxisDefLevel
,
ZAXISDEFLEVEL
,
zaxisdeflevel
,
INT
,
INT
,
DOUBLE
)
FCALLSCFUN2
(
DOUBLE
,
zaxisInqLevel
,
ZAXISINQLEVEL
,
zaxisinqlevel
,
INT
,
INT
)
FCALLSCSUB2
(
zaxisDefReference
,
ZAXISDEFREFERENCE
,
zaxisdefreference
,
INT
,
INT
)
FCALLSCSUB2
(
zaxisDefUUID
,
ZAXISDEFUUID
,
zaxisdefuuid
,
INT
,
CBUF
)
FCALLSCFUN2
(
STRING
,
zaxisInqUUID
,
ZAXISINQUUID
,
zaxisinquuid
,
INT
,
CBUF
)
FCALLSCSUB2
(
zaxisDefUUID
,
ZAXISDEFUUID
,
zaxisdefuuid
,
INT
,
STRING
)
FCALLSCFUN2
(
STRING
,
zaxisInqUUID
,
ZAXISINQUUID
,
zaxisinquuid
,
INT
,
PSTRING
)
FCALLSCFUN1
(
INT
,
zaxisInqReference
,
ZAXISINQREFERENCE
,
zaxisinqreference
,
INT
)
FCALLSCSUB2
(
zaxisDefName
,
ZAXISDEFNAME
,
zaxisdefname
,
INT
,
STRING
)
FCALLSCSUB2
(
zaxisDefLongname
,
ZAXISDEFLONGNAME
,
zaxisdeflongname
,
INT
,
STRING
)
...
...
src/make_fint.c
View file @
af78987a
...
...
@@ -302,7 +302,7 @@ void fortran_interface(char *fname, char *fnameinc, char *fnameint)
break
;
regmatch_t
*
nameMatch
=
reMatch
+
funRet
[
functype
].
nameMatch
;
printf
(
"Found: %.*s
\n
"
,
nameMatch
->
rm_eo
-
nameMatch
->
rm_so
,
(
int
)
(
nameMatch
->
rm_eo
-
nameMatch
->
rm_so
)
,
pline
+
nameMatch
->
rm_so
);
ssize_t
funNameLast
=
reMatch
[
0
].
rm_eo
-
1
;
ssize_t
nameLen
=
nameMatch
->
rm_eo
-
nameMatch
->
rm_so
;
...
...
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