LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-29 16:34:50 +02:00
Code Issues Releases Wiki Activity

Corrected little bugs

Browse Source
This commit is contained in:
Anthony Scemama 2015-04-01 13:22:00 +02:00
parent e7f0704365
commit 18b038e06d
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Dets/connected_to_ref.irp.f
View File

@ -60,6 +60,7 @@ integer function get_index_in_psi_det_sorted_bit(key,Nint)
integer*8, external :: det_search_key integer*8, external :: det_search_key
logical :: is_in_wavefunction logical :: is_in_wavefunction
is_in_wavefunction = .False.
get_index_in_psi_det_sorted_bit = 0 get_index_in_psi_det_sorted_bit = 0
ibegin = 1 ibegin = 1
iend = N_det+1 iend = N_det+1

2
src/Perturbation/perturbation_template.f
View File

@ -25,7 +25,7 @@ subroutine perturb_buffer_$PERT(i_generator,buffer,buffer_size,e_2_pert_buffer,c
ASSERT (N_st > 0) ASSERT (N_st > 0)
do i = 1,buffer_size do i = 1,buffer_size
c_ref = connected_to_ref(buffer(1,1,i),psi_generators,Nint,i_generator,N_det) c_ref = connected_to_ref(buffer(1,1,i),psi_generators,Nint,i_generator,N_det_generators)
if (c_ref /= 0) then if (c_ref /= 0) then
cycle cycle