diff --git a/QA/nwparse.pl b/QA/nwparse.pl index 20f164caea..847f6a8ec1 100644 --- a/QA/nwparse.pl +++ b/QA/nwparse.pl @@ -245,11 +245,11 @@ foreach $filename (@FILES_TO_PARSE) { print "debug:number : $num_line_tokens \n"; } if (! $quiet) { - printf "%s %d %s", @line_tokens[0], @line_tokens[1], @line_tokens[2]; + printf "%s %d %s %s", @line_tokens[0], @line_tokens[1], @line_tokens[2], @line_tokens[3]; printf "% 0.3f %s", set_to_digits(@line_tokens[4],3), @line_tokens[5]; printf "% 0.2f %s\n", set_to_digits(@line_tokens[6],2), @line_tokens[7]; } - printf FILE_OUTPUT "%s %d %s", @line_tokens[0], @line_tokens[1], @line_tokens[2]; + printf FILE_OUTPUT "%s %d %s %s", @line_tokens[0], @line_tokens[1], @line_tokens[2], @line_tokens[3]; printf FILE_OUTPUT " %0.3f %s", set_to_digits(@line_tokens[4],3), @line_tokens[5]; printf FILE_OUTPUT " %0.2f %s\n", set_to_digits(@line_tokens[6],2), @line_tokens[7]; } @@ -262,11 +262,11 @@ foreach $filename (@FILES_TO_PARSE) { print "debug:number : $num_line_tokens \n"; } if (! $quiet) { - printf "%s %d", @line_tokens[0], @line_tokens[1]; + printf "%s %d %s", @line_tokens[0], @line_tokens[1], @line_tokens[2]; printf "% 0.3f %s", set_to_digits(@line_tokens[3],3), @line_tokens[4]; printf "% 0.2f %s\n", set_to_digits(@line_tokens[5],2), @line_tokens[6]; } - printf FILE_OUTPUT "%s %d", @line_tokens[0], @line_tokens[1]; + printf FILE_OUTPUT "%s %d %s", @line_tokens[0], @line_tokens[1], @line_tokens[2]; printf FILE_OUTPUT " %0.3f %s", set_to_digits(@line_tokens[3],3), @line_tokens[4]; printf FILE_OUTPUT " %0.2f %s\n", set_to_digits(@line_tokens[5],2), @line_tokens[6]; }