mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-12 10:48:31 +02:00
Add providers for trexio
This commit is contained in:
parent
d3699eed5a
commit
a9d23e88f8
@ -26,3 +26,43 @@ BEGIN_PROVIDER [double precision, mo_pseudo_integrals, (mo_num,mo_num)]
|
|||||||
END_PROVIDER
|
END_PROVIDER
|
||||||
|
|
||||||
|
|
||||||
|
BEGIN_PROVIDER [double precision, mo_pseudo_integrals_local, (mo_num,mo_num)]
|
||||||
|
implicit none
|
||||||
|
BEGIN_DOC
|
||||||
|
! Pseudopotential integrals in |MO| basis
|
||||||
|
END_DOC
|
||||||
|
|
||||||
|
if (do_pseudo) then
|
||||||
|
call ao_to_mo( &
|
||||||
|
ao_pseudo_integrals_local, &
|
||||||
|
size(ao_pseudo_integrals_local,1), &
|
||||||
|
mo_pseudo_integrals_local, &
|
||||||
|
size(mo_pseudo_integrals_local,1) &
|
||||||
|
)
|
||||||
|
else
|
||||||
|
mo_pseudo_integrals_local = 0.d0
|
||||||
|
endif
|
||||||
|
|
||||||
|
END_PROVIDER
|
||||||
|
|
||||||
|
|
||||||
|
BEGIN_PROVIDER [double precision, mo_pseudo_integrals_non_local, (mo_num,mo_num)]
|
||||||
|
implicit none
|
||||||
|
BEGIN_DOC
|
||||||
|
! Pseudopotential integrals in |MO| basis
|
||||||
|
END_DOC
|
||||||
|
|
||||||
|
if (do_pseudo) then
|
||||||
|
call ao_to_mo( &
|
||||||
|
ao_pseudo_integrals_non_local, &
|
||||||
|
size(ao_pseudo_integrals_non_local,1), &
|
||||||
|
mo_pseudo_integrals_non_local, &
|
||||||
|
size(mo_pseudo_integrals_non_local,1) &
|
||||||
|
)
|
||||||
|
else
|
||||||
|
mo_pseudo_integrals_non_local = 0.d0
|
||||||
|
endif
|
||||||
|
|
||||||
|
END_PROVIDER
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user