comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 22:25:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

added ducc 1-e int check

Browse source
This commit is contained in:
edoapra 2019-10-25 23:52:54 -07:00
parent 839c426f46
commit 5f757e764c
No known key found for this signature in database
GPG key ID: 48E12DA1EDE9E1B0
1 changed files with 21 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

21
QA/nwparse.pl
View file

@ -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(' ');