Commit f70fe40d authored by Giovanni La Mura's avatar Giovanni La Mura
Browse files

Fix FRFME output parameter names

parent 4de74d6d

src/trapping/frfme.cpp

+1 −1
Original line number Original line Diff line number Diff line
@@ -404,7 +404,7 @@ int main() { 
	  FILE *output = fopen(output_name.c_str(), "w");

	  FILE *output = fopen(output_name.c_str(), "w");

	  fprintf(output, " IF JLML < NLMMT, PRESERVE TEMPTAPE1, TEMPTAPE2, AND TFRFRME,\n");

	  fprintf(output, " IF JLML < NLMMT, PRESERVE TEMPTAPE1, TEMPTAPE2, AND TFRFRME,\n");

	  fprintf(output, " AND RESTART LM RUN WITH JLMF = JLML+1\n");

	  fprintf(output, " AND RESTART LM RUN WITH JLMF = JLML+1\n");

	  if (spd > 0.0) fprintf(output, "  FRSHMX =%15.7lE\n", fshmx);

	  if (spd > 0.0) fprintf(output, "  FSHMX =%15.7lE\n", fshmx);

	  fprintf(output, "  FRSH =%15.7lE\n", frsh);

	  fprintf(output, "  FRSH =%15.7lE\n", frsh);

	  fclose(output);

	  fclose(output);

	} else { // Should never happen.

	} else { // Should never happen.