Skip to content
GitLab
Menu
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
e871cd20
Commit
e871cd20
authored
Aug 05, 2015
by
Thomas Jahns
🤸
Browse files
Replace multiple fprintf with fputs.
parent
6ede3251
Changes
1
Show whitespace changes
Inline
Side-by-side
src/make_fint.c
View file @
e871cd20
...
...
@@ -834,8 +834,8 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint,
fp
=
fopen
(
filename
,
"w"
);
if
(
fp
)
{
fp
rintf
(
fp
,
"C Quick Reference
\n
"
);
fprintf
(
fp
,
"-----------------
\n\n
"
);
fp
uts
(
"C Quick Reference
\n
"
"-----------------
\n\n
"
,
fp
);
doctotxt
(
fp
,
cdoc
,
ncdoc
);
fclose
(
fp
);
...
...
@@ -852,8 +852,8 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint,
fp
=
fopen
(
filename
,
"w"
);
if
(
fp
)
{
fp
rintf
(
fp
,
"Fortran Quick Reference
\n
"
);
fprintf
(
fp
,
"-----------------------
\n\n
"
);
fp
uts
(
"Fortran Quick Reference
\n
"
"-----------------------
\n\n
"
,
fp
);
doctotxt
(
fp
,
fdoc
,
nfdoc
);
fclose
(
fp
);
...
...
@@ -870,12 +870,12 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint,
fp
=
fopen
(
filename
,
"w"
);
if
(
fp
)
{
fp
rintf
(
fp
,
"
\\
chapter*{Quick Reference}
\n
"
);
fprintf
(
fp
,
"
\\
addcontentsline{toc}{chapter}{Quick Reference}
\n
"
);
fprintf
(
fp
,
"
\n
"
);
fprintf
(
fp
,
"This appendix provide a brief listing of the C language bindings of the
\n
"
);
fprintf
(
fp
,
"CDI library routines:
\n
"
);
fprintf
(
fp
,
"
\n
"
);
fp
uts
(
"
\\
chapter*{Quick Reference}
\n
"
"
\\
addcontentsline{toc}{chapter}{Quick Reference}
\n
"
"
\n
"
"This appendix provide a brief listing of the C language bindings of the
\n
"
"CDI library routines:
\n
"
"
\n
"
,
fp
);
doctotex
(
fp
,
cdoc
,
ncdoc
);
fclose
(
fp
);
...
...
@@ -892,12 +892,12 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint,
fp
=
fopen
(
filename
,
"w"
);
if
(
fp
)
{
fp
rintf
(
fp
,
"
\\
chapter*{Quick Reference}
\n
"
);
fprintf
(
fp
,
"
\\
addcontentsline{toc}{chapter}{Quick Reference}
\n
"
);
fprintf
(
fp
,
"
\n
"
);
fprintf
(
fp
,
"This appendix provide a brief listing of the Fortran language bindings of the
\n
"
);
fprintf
(
fp
,
"CDI library routines:
\n
"
);
fprintf
(
fp
,
"
\n
"
);
fp
uts
(
"
\\
chapter*{Quick Reference}
\n
"
"
\\
addcontentsline{toc}{chapter}{Quick Reference}
\n
"
"
\n
"
"This appendix provide a brief listing of the Fortran language bindings of the
\n
"
"CDI library routines:
\n
"
"
\n
"
,
fp
);
doctotex
(
fp
,
fdoc
,
nfdoc
);
fclose
(
fp
);
...
...
Write
Preview
Supports
Markdown
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