mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-29 20:23:40 +02:00
minor modif in non-sym Dav
This commit is contained in:
parent
86b4845412
commit
466741259e
@ -343,7 +343,7 @@ subroutine davidson_general_diag_dressed_ext_rout_nonsym_b1space(u_in, H_jj, Dre
|
|||||||
if(lambda_tmp .lt. 0.7d0) then
|
if(lambda_tmp .lt. 0.7d0) then
|
||||||
print *, ' very small overlap ...', l, i_omax(l)
|
print *, ' very small overlap ...', l, i_omax(l)
|
||||||
print *, ' max overlap = ', lambda_tmp
|
print *, ' max overlap = ', lambda_tmp
|
||||||
stop
|
!stop
|
||||||
endif
|
endif
|
||||||
|
|
||||||
if(i_omax(l) .ne. l) then
|
if(i_omax(l) .ne. l) then
|
||||||
|
@ -342,7 +342,7 @@ subroutine davidson_general_ext_rout_nonsym_b1space(u_in, H_jj, energies, sze, N
|
|||||||
if(lambda_tmp .lt. 0.7d0) then
|
if(lambda_tmp .lt. 0.7d0) then
|
||||||
print *, ' very small overlap ...', l, i_omax(l)
|
print *, ' very small overlap ...', l, i_omax(l)
|
||||||
print *, ' max overlap = ', lambda_tmp
|
print *, ' max overlap = ', lambda_tmp
|
||||||
stop
|
!stop
|
||||||
endif
|
endif
|
||||||
|
|
||||||
if(i_omax(l) .ne. l) then
|
if(i_omax(l) .ne. l) then
|
||||||
|
@ -425,7 +425,7 @@ subroutine davidson_hs2_nonsym_b1space(u_in, H_jj, s2_out,energies, sze, N_st, N
|
|||||||
if(lambda_tmp .lt. 0.7d0) then
|
if(lambda_tmp .lt. 0.7d0) then
|
||||||
print *, ' very small overlap ...', l, i_omax(l)
|
print *, ' very small overlap ...', l, i_omax(l)
|
||||||
print *, ' max overlap = ', lambda_tmp
|
print *, ' max overlap = ', lambda_tmp
|
||||||
stop
|
!stop
|
||||||
endif
|
endif
|
||||||
|
|
||||||
if(i_omax(l) .ne. l) then
|
if(i_omax(l) .ne. l) then
|
||||||
|
Loading…
Reference in New Issue
Block a user