diff --git a/QA/nwparse.pl b/QA/nwparse.pl index 997ac704aa..e0d5c904a9 100644 --- a/QA/nwparse.pl +++ b/QA/nwparse.pl @@ -215,6 +215,27 @@ foreach $filename (@FILES_TO_PARSE) { } printf FILE_OUTPUT "\n"; } + if (/^1-e int/){ + if ($debug) {print "\ndebug: $_";} + @line_tokens = split(' '); + $num_line_tokens = @line_tokens; + if ($debug) { + print "debug:line_tokens: @line_tokens \n"; + print "debug:number : $num_line_tokens \n"; + } + if (! $quiet) { + printf "%s %s ", @line_tokens[0], @line_tokens[1]; + printf "%5d%5d ", @line_tokens[2], @line_tokens[3]; + printf " %16.8f", set_to_digits(@line_tokens[4],8); + } + printf FILE_OUTPUT "%s %s ", @line_tokens[0], @line_tokens[1]; + printf FILE_OUTPUT "%5d%5d ", @line_tokens[2], @line_tokens[3]; + printf FILE_OUTPUT " %17.9f", set_to_digits(@line_tokens[4],9); + if (! $quiet) { + printf "\n"; + } + printf FILE_OUTPUT "\n"; + } if (/^ Root / && (/ singlet / || / triplet /)){ if ($debug) {print "\ndebug: $_";} @line_tokens = split(' ');