LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-26 07:02:14 +02:00
Code Issues Releases Wiki Activity

fixed Davidson

Browse Source
This commit is contained in:
Anthony Scemama 2017-04-16 12:08:12 +02:00
parent 957fa694e2
commit c30bdd34b8
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/Davidson/u0Hu0.irp.f
View File

@ -761,7 +761,7 @@ subroutine H_S2_u_0_nstates_bilinear_order(v_0,s_0,u_0,N_st,sze_8)
! -----------------------
do while ( l_a < psi_bilinear_matrix_columns_loc(lcol+1) )
do l=l_a,psi_bilinear_matrix_columns_loc(lcol+1)
do l=l_a,psi_bilinear_matrix_columns_loc(lcol+1)-1
lrow = psi_bilinear_matrix_rows(l)
if (is_single_a(lrow)) exit
enddo