LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-10 15:33:37 +01:00
Code Releases Activity

Fix gfortran10 problem #153

Browse Source
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 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) 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) configuration_search_key = iand(mask,configuration_search_key)
n_open_shells = 1 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 enddo
! Make random verctors eigenstates of S2 ! Make random verctors eigenstates of S2
call convertWFfromDETtoCSF(N_st_diag,U,U_csf) call convertWFfromDETtoCSF(N_st_diag,U(1,1),U_csf(1,1))
call convertWFfromCSFtoDET(N_st_diag,U_csf,U) call convertWFfromCSFtoDET(N_st_diag,U_csf(1,1),U(1,1))
do while (.not.converged) do while (.not.converged)
itertot = itertot+1 itertot = itertot+1