LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-07-22 10:47:33 +02:00
Code Issues Releases Wiki Activity

minor changes in plugins/FOBOCI/SC2_1h1p.irp.f

Browse Source
This commit is contained in:
Emmanuel Giner 2017-03-17 11:46:43 +01:00
parent c9702efcad
commit e8e7985429
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
config/ifort.cfg
View File

@ -58,6 +58,6 @@ FCFLAGS : -xSSE2 -C -fpe0
################# #################
# #
[OPENMP] [OPENMP]
FC : -qopenmp FC : -openmp
IRPF90_FLAGS : --openmp IRPF90_FLAGS : --openmp

2
plugins/FOBOCI/SC2_1h1p.irp.f
View File

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