mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-10-13 03:11:31 +02:00
Fix gfortran10 problem #153
This commit is contained in:
parent
53fdb98c25
commit
9b32fc67ac
@ -14,7 +14,7 @@ integer*8 function configuration_search_key(cfg,Nint)
|
||||
i = shiftr(elec_alpha_num, bit_kind_shift)+1
|
||||
configuration_search_key = int(shiftr(ior(cfg(i,1),cfg(i,2)),1)+sum(cfg),8)
|
||||
|
||||
mask = X'00FFFFFFFFFFFFFF'
|
||||
mask = int(Z'00FFFFFFFFFFFFFF',8)
|
||||
configuration_search_key = iand(mask,configuration_search_key)
|
||||
|
||||
n_open_shells = 1
|
||||
|
@ -284,8 +284,8 @@ subroutine davidson_diag_csf_hjj(dets_in,u_in,H_jj,energies,dim_in,sze,sze_csf,N
|
||||
enddo
|
||||
|
||||
! Make random verctors eigenstates of S2
|
||||
call convertWFfromDETtoCSF(N_st_diag,U,U_csf)
|
||||
call convertWFfromCSFtoDET(N_st_diag,U_csf,U)
|
||||
call convertWFfromDETtoCSF(N_st_diag,U(1,1),U_csf(1,1))
|
||||
call convertWFfromCSFtoDET(N_st_diag,U_csf(1,1),U(1,1))
|
||||
|
||||
do while (.not.converged)
|
||||
itertot = itertot+1
|
||||
|
Loading…
Reference in New Issue
Block a user