LCPQ
/
qp2
mirror of https://github.com/QuantumPackage/qp2.git
9
1
Fork 0
Code Releases Activity

Fix gfortran10 problem #153

This commit is contained in:
Anthony Scemama 2021-04-19 23:57:28 +02:00
parent 53fdb98c25
commit 9b32fc67ac
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/csf/connected_to_ref.irp.f
View File

@ -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

4
src/davidson/diagonalization_hcsf_dressed.irp.f
View File

@ -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