mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-24 21:41:46 +02:00
minor changes in plugins/FOBOCI/SC2_1h1p.irp.f
This commit is contained in:
parent
c9702efcad
commit
e8e7985429
@ -58,6 +58,6 @@ FCFLAGS : -xSSE2 -C -fpe0
|
|||||||
#################
|
#################
|
||||||
#
|
#
|
||||||
[OPENMP]
|
[OPENMP]
|
||||||
FC : -qopenmp
|
FC : -openmp
|
||||||
IRPF90_FLAGS : --openmp
|
IRPF90_FLAGS : --openmp
|
||||||
|
|
||||||
|
@ -356,7 +356,7 @@ subroutine dressing_1h1p_by_2h2p(dets_in,u_in,diag_H_elements,dim_in,sze,N_st,Ni
|
|||||||
c_ref = 1.d0/u_in(index_hf,1)
|
c_ref = 1.d0/u_in(index_hf,1)
|
||||||
do k = 1, n_singles
|
do k = 1, n_singles
|
||||||
l = index_singles(k)
|
l = index_singles(k)
|
||||||
diag_H_elements(0) -= diag_H_elements(l)
|
diag_H_elements(1) -= diag_H_elements(l)
|
||||||
enddo
|
enddo
|
||||||
! do k = 1, n_doubles
|
! do k = 1, n_doubles
|
||||||
! l = index_doubles(k)
|
! l = index_doubles(k)
|
||||||
|
Loading…
Reference in New Issue
Block a user