Added missing parameters in the REPORT section
The MESSAGES and FILE options were not saved
This commit is contained in:
@@ -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 */
|
||||
|
||||
|
||||
Reference in New Issue
Block a user