mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-28 16:12:26 +02:00
13 lines
253 B
Forth
13 lines
253 B
Forth
program test ao_pot
|
|
implicit none
|
|
integer :: i, j
|
|
do i=1,ao_num
|
|
do j=1,i
|
|
if (abs(ao_nucl_elec_integral(i,j)) > 1.d-9) then
|
|
print '(I4,A,I4,2x,A, 2x,e16.8)' , i,',',j, ' : ', ao_nucl_elec_integral(i,j)
|
|
endif
|
|
enddo
|
|
enddo
|
|
end
|
|
|