mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-08-30 07:53:39 +02:00
Export
This commit is contained in:
parent
aacc3057c8
commit
5e6654cb9a
@ -53,7 +53,7 @@ subroutine run
|
||||
integer :: n_integrals
|
||||
integer(key_kind) :: idx
|
||||
|
||||
double precision, external :: get_mo_two_e_integral
|
||||
double precision, external :: get_two_e_integral
|
||||
|
||||
allocate (A(mo_num,mo_num))
|
||||
call ezfio_set_nuclei_nuclear_repulsion(nuclear_repulsion)
|
||||
@ -67,7 +67,7 @@ subroutine run
|
||||
do k=1,mo_num
|
||||
do j=1,mo_num
|
||||
do i=1,mo_num
|
||||
integral = get_mo_two_e_integral(i,j,k,l,mo_integrals_map)
|
||||
integral = get_two_e_integral(i,j,k,l,mo_integrals_map)
|
||||
if (integral /= 0.d0) then
|
||||
write (iunit,'(4(I5,2X),E22.15)') i,j,k,l, integral
|
||||
endif
|
||||
|
Loading…
Reference in New Issue
Block a user