mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-01 13:43:40 +02:00
This commit is contained in:
parent
a4516fb8f9
commit
82654efdf9
@ -4,6 +4,7 @@ BEGIN_PROVIDER [ logical, do_mo_cholesky ]
|
|||||||
! If True, use Cholesky vectors for MO integrals
|
! If True, use Cholesky vectors for MO integrals
|
||||||
END_DOC
|
END_DOC
|
||||||
do_mo_cholesky = do_ao_cholesky
|
do_mo_cholesky = do_ao_cholesky
|
||||||
|
do_mo_cholesky = .False.
|
||||||
END_PROVIDER
|
END_PROVIDER
|
||||||
|
|
||||||
BEGIN_PROVIDER [ integer, cholesky_mo_num ]
|
BEGIN_PROVIDER [ integer, cholesky_mo_num ]
|
||||||
|
@ -32,19 +32,27 @@ subroutine insert_into_mo_integrals_map(n_integrals, &
|
|||||||
call map_update(mo_integrals_map, buffer_i, buffer_values, n_integrals, thr)
|
call map_update(mo_integrals_map, buffer_i, buffer_values, n_integrals, thr)
|
||||||
end
|
end
|
||||||
|
|
||||||
BEGIN_PROVIDER [ integer*4, mo_integrals_cache_min ]
|
BEGIN_PROVIDER [ integer, mo_integrals_cache_min ]
|
||||||
&BEGIN_PROVIDER [ integer*4, mo_integrals_cache_max ]
|
&BEGIN_PROVIDER [ integer, mo_integrals_cache_max ]
|
||||||
&BEGIN_PROVIDER [ integer*4, mo_integrals_cache_shift]
|
&BEGIN_PROVIDER [ integer, mo_integrals_cache_shift]
|
||||||
&BEGIN_PROVIDER [ integer*4, mo_integrals_cache_size ]
|
&BEGIN_PROVIDER [ integer, mo_integrals_cache_size ]
|
||||||
implicit none
|
implicit none
|
||||||
BEGIN_DOC
|
BEGIN_DOC
|
||||||
! Min and max values of the MOs for which the integrals are in the cache
|
! Min and max values of the MOs for which the integrals are in the cache
|
||||||
END_DOC
|
END_DOC
|
||||||
mo_integrals_cache_shift = 7 ! 7 = log(128). Max 7
|
if (qp_max_mem < 1) then
|
||||||
|
mo_integrals_cache_shift = 5 ! 5 = log(32).
|
||||||
|
else if (qp_max_mem < 2) then
|
||||||
|
mo_integrals_cache_shift = 6 ! 6 = log(64).
|
||||||
|
else
|
||||||
|
mo_integrals_cache_shift = 7 ! 7 = log(128). Max 7
|
||||||
|
endif
|
||||||
|
|
||||||
mo_integrals_cache_size = 2**mo_integrals_cache_shift
|
mo_integrals_cache_size = 2**mo_integrals_cache_shift
|
||||||
|
|
||||||
mo_integrals_cache_min = max(1,elec_alpha_num - (mo_integrals_cache_size/2 - 1) )
|
mo_integrals_cache_min = max(1,elec_alpha_num - (mo_integrals_cache_size/2 - 1) )
|
||||||
mo_integrals_cache_max = min(mo_num, mo_integrals_cache_min + mo_integrals_cache_size - 1)
|
mo_integrals_cache_max = min(mo_num, mo_integrals_cache_min + mo_integrals_cache_size - 1)
|
||||||
|
print *, 'mo_integrals_cache: (', mo_integrals_cache_min, ', ', mo_integrals_cache_max, ')'
|
||||||
|
|
||||||
END_PROVIDER
|
END_PROVIDER
|
||||||
|
|
||||||
@ -136,7 +144,17 @@ double precision function get_two_e_integral(i,j,k,l,map)
|
|||||||
ii = ior(ii, j-mo_integrals_cache_min)
|
ii = ior(ii, j-mo_integrals_cache_min)
|
||||||
ii = ior(ii, i-mo_integrals_cache_min)
|
ii = ior(ii, i-mo_integrals_cache_min)
|
||||||
|
|
||||||
if (iand(ii, -mo_integrals_cache_size) /= 0) then
|
if (iand(ii, -mo_integrals_cache_size) == 0) then
|
||||||
|
! Integrals is in the cache
|
||||||
|
|
||||||
|
ii = l-mo_integrals_cache_min
|
||||||
|
ii = ior( shiftl(ii,mo_integrals_cache_shift), k-mo_integrals_cache_min)
|
||||||
|
ii = ior( shiftl(ii,mo_integrals_cache_shift), j-mo_integrals_cache_min)
|
||||||
|
ii = ior( shiftl(ii,mo_integrals_cache_shift), i-mo_integrals_cache_min)
|
||||||
|
get_two_e_integral = mo_integrals_cache(ii)
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
! Integral is not in the cache
|
! Integral is not in the cache
|
||||||
|
|
||||||
if (do_mo_cholesky) then
|
if (do_mo_cholesky) then
|
||||||
@ -145,7 +163,6 @@ double precision function get_two_e_integral(i,j,k,l,map)
|
|||||||
get_two_e_integral = ddot(cholesky_mo_num, cholesky_mo_transp(1,i,k), 1, cholesky_mo_transp(1,j,l), 1)
|
get_two_e_integral = ddot(cholesky_mo_num, cholesky_mo_transp(1,i,k), 1, cholesky_mo_transp(1,j,l), 1)
|
||||||
|
|
||||||
else
|
else
|
||||||
! Integrals is in the map
|
|
||||||
|
|
||||||
!DIR$ FORCEINLINE
|
!DIR$ FORCEINLINE
|
||||||
call two_e_integrals_index(i,j,k,l,idx)
|
call two_e_integrals_index(i,j,k,l,idx)
|
||||||
@ -154,15 +171,6 @@ double precision function get_two_e_integral(i,j,k,l,map)
|
|||||||
get_two_e_integral = dble(tmp)
|
get_two_e_integral = dble(tmp)
|
||||||
endif
|
endif
|
||||||
|
|
||||||
else
|
|
||||||
! Integrals is in the cache
|
|
||||||
|
|
||||||
ii = l-mo_integrals_cache_min
|
|
||||||
ii = ior( shiftl(ii,mo_integrals_cache_shift), k-mo_integrals_cache_min)
|
|
||||||
ii = ior( shiftl(ii,mo_integrals_cache_shift), j-mo_integrals_cache_min)
|
|
||||||
ii = ior( shiftl(ii,mo_integrals_cache_shift), i-mo_integrals_cache_min)
|
|
||||||
get_two_e_integral = mo_integrals_cache(ii)
|
|
||||||
|
|
||||||
endif
|
endif
|
||||||
end
|
end
|
||||||
|
|
||||||
@ -200,62 +208,105 @@ subroutine get_mo_two_e_integrals(j,k,l,sze,out_val,map)
|
|||||||
PROVIDE mo_two_e_integrals_in_map mo_integrals_cache
|
PROVIDE mo_two_e_integrals_in_map mo_integrals_cache
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
if (banned_excitation(j,l)) then
|
if (banned_excitation(j,l)) then
|
||||||
out_val(1:sze) = 0.d0
|
out_val(1:sze) = 0.d0
|
||||||
return
|
return
|
||||||
endif
|
endif
|
||||||
|
|
||||||
if (mo_integrals_cache_min > 1) then
|
ii = l-mo_integrals_cache_min
|
||||||
|
ii = ior(ii, k-mo_integrals_cache_min)
|
||||||
|
ii = ior(ii, j-mo_integrals_cache_min)
|
||||||
|
|
||||||
if (do_mo_cholesky) then
|
if (iand(ii, -mo_integrals_cache_size) == 0) then
|
||||||
|
! Some integrals are in the cache
|
||||||
|
|
||||||
call dgemv('T', cholesky_mo_num, mo_integrals_cache_min-1, 1.d0, &
|
if (mo_integrals_cache_min > 1) then
|
||||||
cholesky_mo_transp(1,1,k), cholesky_mo_num, &
|
|
||||||
cholesky_mo_transp(1,j,l), 1, 0.d0, &
|
|
||||||
out_val, 1)
|
|
||||||
|
|
||||||
else
|
if (do_mo_cholesky) then
|
||||||
|
|
||||||
q = min(j,l)
|
call dgemv('T', cholesky_mo_num, mo_integrals_cache_min-1, 1.d0, &
|
||||||
s = max(j,l)
|
cholesky_mo_transp(1,1,k), cholesky_mo_num, &
|
||||||
q = q+shiftr(s*s-s,1)
|
cholesky_mo_transp(1,j,l), 1, 0.d0, &
|
||||||
|
out_val, 1)
|
||||||
|
|
||||||
do i=1,mo_integrals_cache_min-1
|
else
|
||||||
if (banned_excitation(i,k)) then
|
|
||||||
out_val(i) = 0.d0
|
q = min(j,l)
|
||||||
cycle
|
s = max(j,l)
|
||||||
endif
|
q = q+shiftr(s*s-s,1)
|
||||||
p = min(i,k)
|
|
||||||
r = max(i,k)
|
do i=1,mo_integrals_cache_min-1
|
||||||
p = p+shiftr(r*r-r,1)
|
if (banned_excitation(i,k)) then
|
||||||
i1 = min(p,q)
|
out_val(i) = 0.d0
|
||||||
i2 = max(p,q)
|
cycle
|
||||||
idx = i1+shiftr(i2*i2-i2,1)
|
endif
|
||||||
!DIR$ FORCEINLINE
|
p = min(i,k)
|
||||||
call map_get(map,idx,tmp)
|
r = max(i,k)
|
||||||
out_val(i) = dble(tmp)
|
p = p+shiftr(r*r-r,1)
|
||||||
enddo
|
i1 = min(p,q)
|
||||||
|
i2 = max(p,q)
|
||||||
|
idx = i1+shiftr(i2*i2-i2,1)
|
||||||
|
!DIR$ FORCEINLINE
|
||||||
|
call map_get(map,idx,tmp)
|
||||||
|
out_val(i) = dble(tmp)
|
||||||
|
enddo
|
||||||
|
|
||||||
|
endif
|
||||||
|
|
||||||
endif
|
endif
|
||||||
|
|
||||||
endif
|
|
||||||
|
|
||||||
|
ii = l-mo_integrals_cache_min
|
||||||
|
ii = ior( shiftl(ii, mo_integrals_cache_shift), k-mo_integrals_cache_min)
|
||||||
|
ii = ior( shiftl(ii, mo_integrals_cache_shift), j-mo_integrals_cache_min)
|
||||||
|
ii = shiftl(ii, mo_integrals_cache_shift)
|
||||||
|
out_val(mo_integrals_cache_min:mo_integrals_cache_max) = &
|
||||||
|
mo_integrals_cache(ii:ii+mo_integrals_cache_max-mo_integrals_cache_min)
|
||||||
|
|
||||||
ii = l-mo_integrals_cache_min
|
if (mo_integrals_cache_max < mo_num) then
|
||||||
ii = ior( shiftl(ii, mo_integrals_cache_shift), k-mo_integrals_cache_min)
|
|
||||||
ii = ior( shiftl(ii, mo_integrals_cache_shift), j-mo_integrals_cache_min)
|
|
||||||
ii = shiftl(ii, mo_integrals_cache_shift)
|
|
||||||
out_val(mo_integrals_cache_min:mo_integrals_cache_max) = &
|
|
||||||
mo_integrals_cache(ii:ii+mo_integrals_cache_max-mo_integrals_cache_min)
|
|
||||||
|
|
||||||
if (mo_integrals_cache_max < mo_num) then
|
if (do_mo_cholesky) then
|
||||||
|
|
||||||
|
call dgemv('T', cholesky_mo_num, mo_num-mo_integrals_cache_max, 1.d0, &
|
||||||
|
cholesky_mo_transp(1,mo_integrals_cache_max+1,k), cholesky_mo_num, &
|
||||||
|
cholesky_mo_transp(1,j,l), 1, 0.d0, &
|
||||||
|
out_val(mo_integrals_cache_max+1), 1)
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
q = min(j,l)
|
||||||
|
s = max(j,l)
|
||||||
|
q = q+shiftr(s*s-s,1)
|
||||||
|
|
||||||
|
do i=mo_integrals_cache_max+1,mo_num
|
||||||
|
if (banned_excitation(i,k)) then
|
||||||
|
out_val(i) = 0.d0
|
||||||
|
cycle
|
||||||
|
endif
|
||||||
|
p = min(i,k)
|
||||||
|
r = max(i,k)
|
||||||
|
p = p+shiftr(r*r-r,1)
|
||||||
|
i1 = min(p,q)
|
||||||
|
i2 = max(p,q)
|
||||||
|
idx = i1+shiftr(i2*i2-i2,1)
|
||||||
|
!DIR$ FORCEINLINE
|
||||||
|
call map_get(map,idx,tmp)
|
||||||
|
out_val(i) = dble(tmp)
|
||||||
|
enddo
|
||||||
|
|
||||||
|
endif
|
||||||
|
|
||||||
|
endif
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
if (do_mo_cholesky) then
|
if (do_mo_cholesky) then
|
||||||
|
|
||||||
call dgemv('T', cholesky_mo_num, mo_num-mo_integrals_cache_max, 1.d0, &
|
call dgemv('T', cholesky_mo_num, mo_num, 1.d0, &
|
||||||
cholesky_mo_transp(1,mo_integrals_cache_max+1,k), cholesky_mo_num, &
|
cholesky_mo_transp(1,1,k), cholesky_mo_num, &
|
||||||
cholesky_mo_transp(1,j,l), 1, 0.d0, &
|
cholesky_mo_transp(1,j,l), 1, 0.d0, &
|
||||||
out_val(mo_integrals_cache_max+1), 1)
|
out_val, 1)
|
||||||
|
|
||||||
else
|
else
|
||||||
|
|
||||||
@ -263,11 +314,8 @@ subroutine get_mo_two_e_integrals(j,k,l,sze,out_val,map)
|
|||||||
s = max(j,l)
|
s = max(j,l)
|
||||||
q = q+shiftr(s*s-s,1)
|
q = q+shiftr(s*s-s,1)
|
||||||
|
|
||||||
do i=mo_integrals_cache_max+1,mo_num
|
do i=1,sze
|
||||||
if (banned_excitation(i,k)) then
|
if (banned_excitation(i,k)) cycle
|
||||||
out_val(i) = 0.d0
|
|
||||||
cycle
|
|
||||||
endif
|
|
||||||
p = min(i,k)
|
p = min(i,k)
|
||||||
r = max(i,k)
|
r = max(i,k)
|
||||||
p = p+shiftr(r*r-r,1)
|
p = p+shiftr(r*r-r,1)
|
||||||
|
Loading…
Reference in New Issue
Block a user