Added missing parameters in the REPORT section

The MESSAGES and FILE options were not saved
This commit is contained in:
Elad Salomons
2015-08-05 14:15:27 +03:00
parent 4248947f3a
commit d0c3f59f34

View File

@@ -558,6 +558,9 @@ int saveinpfile(char *fname)
fprintf(f, "\n STATUS %s", RptFlagTxt[Statflag]);
fprintf(f, "\n SUMMARY %s", RptFlagTxt[Summaryflag]);
fprintf(f, "\n ENERGY %s", RptFlagTxt[Energyflag]);
fprintf(f, "\n MESSAGES %s", RptFlagTxt[Messageflag]);
if (strlen(Rpt2Fname) > 0)
fprintf(f, "\n FILE %s", Rpt2Fname);
switch (Nodeflag)
{
case 0:
@@ -610,7 +613,7 @@ int saveinpfile(char *fname)
}
else fprintf(f, "\n %-20sNO", Field[i].Name);
}
fprintf(f, "\n");
fprintf(f, "\n\n");
/* Save auxilary data to new input file */