2020-02-03 20:58:08 +01:00
|
|
|
program print_ao_2e_integrals
|
|
|
|
call run
|
|
|
|
end
|
|
|
|
|
|
|
|
subroutine run
|
|
|
|
use map_module
|
|
|
|
implicit none
|
|
|
|
|
|
|
|
integer ::i,j,k,l
|
|
|
|
|
|
|
|
provide ao_two_e_integrals_in_map
|
2020-02-12 01:23:34 +01:00
|
|
|
complex*16 :: get_ao_two_e_integral_complex, tmp_cmplx
|
2020-02-03 20:58:08 +01:00
|
|
|
do i=1,ao_num
|
|
|
|
do j=1,ao_num
|
|
|
|
do k=1,ao_num
|
|
|
|
do l=1,ao_num
|
2020-02-12 01:23:34 +01:00
|
|
|
tmp_cmplx = get_ao_two_e_integral_complex(i,j,k,l,ao_integrals_map,ao_integrals_map_2)
|
2020-02-03 20:58:08 +01:00
|
|
|
print'(4(I4),2(E15.7))',i,j,k,l,tmp_cmplx
|
|
|
|
enddo
|
|
|
|
enddo
|
|
|
|
enddo
|
|
|
|
enddo
|
|
|
|
print*,'map1'
|
|
|
|
do i=0,ao_integrals_map%map_size
|
|
|
|
print*,i,ao_integrals_map%map(i)%value(:)
|
|
|
|
print*,i,ao_integrals_map%map(i)%key(:)
|
|
|
|
enddo
|
|
|
|
print*,'map2'
|
|
|
|
do i=0,ao_integrals_map_2%map_size
|
|
|
|
print*,i,ao_integrals_map_2%map(i)%value(:)
|
|
|
|
print*,i,ao_integrals_map_2%map(i)%key(:)
|
|
|
|
enddo
|
|
|
|
end
|