Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
b2675aa3
Commit
b2675aa3
authored
Nov 06, 2020
by
Uwe Schulzweida
Browse files
make_fint: added key FINT_OFF to stop generation if the fortran interface from cdi.h.
parent
18eaa51a
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/cdi.h
View file @
b2675aa3
...
...
@@ -1273,6 +1273,7 @@ int vlistInqVarSubtype(int vlistID, int varID);
void
gribapiLibraryVersion
(
int
*
major_version
,
int
*
minor_version
,
int
*
revision_version
);
//FINT_OFF
void
gaussianLatitudes
(
double
*
latitudes
,
double
*
weights
,
size_t
nlat
);
#ifdef __cplusplus
...
...
src/make_fint.c
View file @
b2675aa3
...
...
@@ -519,7 +519,7 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint, const
fprintf
(
fpint
,
"/* Automatically generated by make_fint.c, don't edit! */
\n
"
);
fprintf
(
fpint
,
"
\n
"
);
fprintf
(
fpint
,
"#ifdef HAVE_CONFIG_H
\n
"
);
fprintf
(
fpint
,
"#
include
\"
config.h
\"\n
"
);
fprintf
(
fpint
,
"#include
\"
config.h
\"\n
"
);
fprintf
(
fpint
,
"#endif
\n
"
);
fprintf
(
fpint
,
"
\n
"
);
char
*
cppHeaderSentinelMacro
;
...
...
@@ -579,8 +579,8 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint, const
{
static
const
char
cplusplus_macro
[]
=
"__cplusplus"
;
lineno
++
;
if
(
line
[
0
]
==
'\n'
)
continue
;
if
(
line
[
0
]
==
'\n'
)
continue
;
if
(
strncmp
(
line
,
"//FINT_OFF"
,
10
)
==
0
)
break
;
functype
=
ISVOID
;
pline
=
line
;
int
needsExtraWrapper
=
0
,
needsPrologue
=
0
;
...
...
@@ -592,8 +592,7 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint, const
{
functype
=
retType
;
declType
=
FUNC_DECL
;
needsExtraWrapper
=
needsExtraWrapper
||
funRet
[
retType
].
needsExtraWrapper
;
needsExtraWrapper
=
needsExtraWrapper
||
funRet
[
retType
].
needsExtraWrapper
;
break
;
}
if
(
declType
==
UNKNOWN_DECL
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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