LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-25 22:52:15 +02:00
Code Issues Releases Wiki Activity

LinearAlgebra

Browse Source
This commit is contained in:
Anthony Scemama 2015-11-30 20:57:41 +01:00
parent 6d05c72143
commit 4f3c07f54e
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
plugins/QmcChem/save_for_qmcchem.irp.f
View File

@ -1,6 +1,7 @@
program save_for_qmc
read_wf = .True.
TOUCH read_wf
print *, "N_det = ", N_det
call write_spindeterminants
if (do_pseudo) then
call write_pseudopotential

2
src/Utils/LinearAlgebra.irp.f
View File

@ -83,7 +83,7 @@ subroutine ortho_lowdin(overlap,LDA,N,C,LDC,m)
!$OMP DO
do i=1,n
if ( D(i) < 1.d-12 ) then
stop 'Linear dependence in basis set'
D(i) = 0.d0
else
D(i) = 1.d0/dsqrt(D(i))
endif