LCPQ/qmcchem
10
1
Fork 1
mirror of https://gitlab.com/scemama/qmcchem.git synced 2024-12-22 12:23:30 +01:00
Code Releases Activity

keep svd coefs

Browse Source
This commit is contained in:
Anthony Scemama 2021-06-29 15:56:10 +02:00
parent 205a89e391
commit 374cae3754
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/svd.irp.f
View File

@ -22,7 +22,7 @@ BEGIN_PROVIDER [ integer, n_svd_coefs ]
if (psi_svd_coefs(i) < ci_threshold) then if (psi_svd_coefs(i) < ci_threshold) then
exit exit
endif endif
print *, i, psi_svd_coefs(i) ! print *, i, psi_svd_coefs(i)
n_svd_coefs = n_svd_coefs+1 n_svd_coefs = n_svd_coefs+1
enddo enddo
END_PROVIDER END_PROVIDER