LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-01-03 01:56:05 +01:00
Code Issues Releases Wiki Activity

bug correction - fixed zlib link

Browse Source
This commit is contained in:
Yann Garniron 2017-01-18 15:53:51 +01:00
parent 042024f424
commit 48adebac20
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
configure vendored
View File

@ -102,7 +102,7 @@ curl = Info(
default_path=join(QP_ROOT_BIN, "curl")) default_path=join(QP_ROOT_BIN, "curl"))
zlib = Info( zlib = Info(
url='http://www.zlib.net/zlib-1.2.10.tar.gz', url='http://www.zlib.net/fossils/zlib-1.2.10.tar.gz',
description=' zlib', description=' zlib',
default_path=join(QP_ROOT_LIB, "libz.a")) default_path=join(QP_ROOT_LIB, "libz.a"))

9
plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f
View File

@ -190,7 +190,6 @@ subroutine pt2_collector(b, tbc, comb, Ncomb, computed, pt2_detail, sumabove, su
do i=1,Nindex do i=1,Nindex
pt2_detail(:, index(i)) += pt2_mwen(:,i) pt2_detail(:, index(i)) += pt2_mwen(:,i)
parts_to_get(index(i)) -= 1 parts_to_get(index(i)) -= 1
!print *, index(1)
if(parts_to_get(index(i)) < 0) then if(parts_to_get(index(i)) < 0) then
stop "PARTS ??" stop "PARTS ??"
end if end if
@ -280,22 +279,24 @@ subroutine get_first_tooth(computed, first_teeth)
implicit none implicit none
logical, intent(in) :: computed(N_det_generators) logical, intent(in) :: computed(N_det_generators)
integer, intent(out) :: first_teeth integer, intent(out) :: first_teeth
integer :: i integer :: i, first_det
first_det = 1
first_teeth = 1 first_teeth = 1
do i=first_det_of_comb, N_det_generators do i=first_det_of_comb, N_det_generators
if(not(computed(i))) then if(not(computed(i))) then
first_teeth = i first_det = i
exit exit
end if end if
end do end do
do i=comb_teeth, 1, -1 do i=comb_teeth, 1, -1
if(first_det_of_teeth(i) < first_teeth) then if(first_det_of_teeth(i) < first_det) then
first_teeth = i first_teeth = i
exit exit
end if end if
end do end do
end subroutine end subroutine