9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 03:23:29 +01:00

Update Davidson parameters

This commit is contained in:
Anthony Scemama 2021-01-21 11:03:19 +01:00
parent 0c3c5fd926
commit 7e4d08f51f

View File

@ -441,7 +441,7 @@ subroutine H_S2_u_0_nstates_zmq(v_0,s_0,u_0,N_st,sze)
if (imin==1) then
istep = 2
else
istep = 1
istep = 2
endif
do ishift=0,istep-1
write(task(ipos:ipos+50),'(4(I11,1X),1X,1A)') imin, imax, ishift, istep, '|'