Commit e871cd20 authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Replace multiple fprintf with fputs.

parent 6ede3251
...@@ -834,8 +834,8 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint, ...@@ -834,8 +834,8 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint,
fp = fopen(filename, "w"); fp = fopen(filename, "w");
if ( fp ) if ( fp )
{ {
fprintf(fp, "C Quick Reference\n"); fputs("C Quick Reference\n"
fprintf(fp, "-----------------\n\n"); "-----------------\n\n", fp);
doctotxt(fp, cdoc, ncdoc); doctotxt(fp, cdoc, ncdoc);
fclose(fp); fclose(fp);
...@@ -852,8 +852,8 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint, ...@@ -852,8 +852,8 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint,
fp = fopen(filename, "w"); fp = fopen(filename, "w");
if ( fp ) if ( fp )
{ {
fprintf(fp, "Fortran Quick Reference\n"); fputs("Fortran Quick Reference\n"
fprintf(fp, "-----------------------\n\n"); "-----------------------\n\n", fp);
doctotxt(fp, fdoc, nfdoc); doctotxt(fp, fdoc, nfdoc);
fclose(fp); fclose(fp);
...@@ -870,12 +870,12 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint, ...@@ -870,12 +870,12 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint,
fp = fopen(filename, "w"); fp = fopen(filename, "w");
if ( fp ) if ( fp )
{ {
fprintf(fp, "\\chapter*{Quick Reference}\n"); fputs("\\chapter*{Quick Reference}\n"
fprintf(fp, "\\addcontentsline{toc}{chapter}{Quick Reference}\n"); "\\addcontentsline{toc}{chapter}{Quick Reference}\n"
fprintf(fp, "\n"); "\n"
fprintf(fp, "This appendix provide a brief listing of the C language bindings of the\n"); "This appendix provide a brief listing of the C language bindings of the\n"
fprintf(fp, "CDI library routines:\n"); "CDI library routines:\n"
fprintf(fp, "\n"); "\n", fp);
doctotex(fp, cdoc, ncdoc); doctotex(fp, cdoc, ncdoc);
fclose(fp); fclose(fp);
...@@ -892,12 +892,12 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint, ...@@ -892,12 +892,12 @@ static void fortran_interface(char *fname, char *fnameinc, char *fnameint,
fp = fopen(filename, "w"); fp = fopen(filename, "w");
if ( fp ) if ( fp )
{ {
fprintf(fp, "\\chapter*{Quick Reference}\n"); fputs("\\chapter*{Quick Reference}\n"
fprintf(fp, "\\addcontentsline{toc}{chapter}{Quick Reference}\n"); "\\addcontentsline{toc}{chapter}{Quick Reference}\n"
fprintf(fp, "\n"); "\n"
fprintf(fp, "This appendix provide a brief listing of the Fortran language bindings of the\n"); "This appendix provide a brief listing of the Fortran language bindings of the\n"
fprintf(fp, "CDI library routines:\n"); "CDI library routines:\n"
fprintf(fp, "\n"); "\n", fp);
doctotex(fp, fdoc, nfdoc); doctotex(fp, fdoc, nfdoc);
fclose(fp); fclose(fp);
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment