mirror of
https://github.com/LCPQ/quantum_package
synced 2024-09-16 17:35:42 +02:00
13 lines
310 B
FortranFixed
13 lines
310 B
FortranFixed
|
program test_normalization
|
||
|
implicit none
|
||
|
integer :: i,j
|
||
|
character*(64), parameter :: f = '(i3.3,a,i3.3,a3,F12.8)'
|
||
|
do j=1,ao_num
|
||
|
do i=1,ao_num
|
||
|
if (abs(ao_overlap(i,j)) > 1.d-6) then
|
||
|
print f, i,'_',j, ' : ', ao_overlap(i,j)
|
||
|
endif
|
||
|
enddo
|
||
|
enddo
|
||
|
end
|