mirror of
https://gitlab.com/scemama/qmcchem.git
synced 2024-12-22 04:13:31 +01:00
keep svd coefs
This commit is contained in:
parent
205a89e391
commit
374cae3754
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user