9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-07-04 18:25:50 +02:00

Minor changes

This commit is contained in:
Anthony Scemama 2023-02-08 16:41:35 +01:00
parent 0e576f519e
commit f947412a16
3 changed files with 19 additions and 18 deletions

View File

@ -4,20 +4,19 @@
** Changes ** Changes
- Introduced DFT-based basis set correction
- Use OpamPack for OCaml
- Configure adapted for ARM
- Added many types of integrals
*** TODO: take from dev *** TODO: take from dev
- [ ] Added GTOs with complex exponent - [ ] Added GTOs with complex exponent
- [ ] Added many types of integrals
- Updated version of f77-zmq - Updated version of f77-zmq
- Added transcorrelated SCF - Added transcorrelated SCF
- Added transcorrelated CIPSI - Added transcorrelated CIPSI
- Started to introduce shells in AOs - Started to introduce shells in AOs
- Added ECMD UEG functional - Added ECMD UEG functional
- Introduced DFT-based basis set correction - General Davidson algorithm
- General davidson algorithm
- Use OpamPack for OCaml
- Configure adapted for ARM
*** Done
* Version 2.2 * Version 2.2

View File

@ -321,14 +321,15 @@ BEGIN_PROVIDER [ double precision, ao_integrals_cache, (0:64*64*64*64) ]
!$OMP END PARALLEL DO !$OMP END PARALLEL DO
END_PROVIDER END_PROVIDER
! ---
double precision function get_ao_two_e_integral(i,j,k,l,map) result(result) double precision function get_ao_two_e_integral(i, j, k, l, map) result(result)
use map_module use map_module
implicit none implicit none
BEGIN_DOC BEGIN_DOC
! Gets one AO bi-electronic integral from the AO map ! Gets one AO bi-electronic integral from the AO map in PHYSICIST NOTATION
! !
! i,j,k,l in physicist notation <ij|kl> ! <1:k, 2:l |1:i, 2:j>
END_DOC END_DOC
integer, intent(in) :: i,j,k,l integer, intent(in) :: i,j,k,l
integer(key_kind) :: idx integer(key_kind) :: idx

View File

@ -101,6 +101,7 @@ double precision function ao_two_e_integral(i,j,k,l)
endif endif
endif endif
end end
double precision function ao_two_e_integral_schwartz_accel(i,j,k,l) double precision function ao_two_e_integral_schwartz_accel(i,j,k,l)