void inputoptions()
{
/* print options information */
if (!firstset)
{
samenumsp2(ith);
if(samenumsp2error)
return;
}
fprintf(outfile, "\nFitch-Margoliash method version %s\n\n",VERSION);
if (minev)
fprintf(outfile, "Minimum evolution method option\n\n");
fprintf(outfile, " __ __ 2\n");
fprintf(outfile, " \\ \\ (Obs - Exp)\n");
fprintf(outfile, "Sum of squares = /_ /_ ------------\n");
fprintf(outfile, " ");
if (power == (long)power)
fprintf(outfile, "%2ld\n", (long)power);
else
fprintf(outfile, "%4.1f\n", power);
fprintf(outfile, " i j Obs\n\n");
fprintf(outfile, "Negative branch lengths ");
if (!negallowed)
fprintf(outfile, "not ");
fprintf(outfile, "allowed\n\n");
if (global)
fprintf(outfile, "global optimization\n\n");
} /* inputoptions */
void inputoptions()
{
/* read options information */
if (ith != 1)
samenumsp2(ith);
putc('\n', outfile);
if (njoin)
fprintf(outfile, " Neighbor-joining method\n");
else
fprintf(outfile, " UPGMA method\n");
fprintf(outfile, "\n Negative branch lengths allowed\n\n");
} /* inputoptions */
