mirror of
https://gitlab.com/scemama/eplf
synced 2024-07-30 17:14:22 +02:00
11 lines
167 B
Forth
11 lines
167 B
Forth
program debug
|
|
implicit none
|
|
double precision :: ao_overlap
|
|
integer :: i,j
|
|
do i=1,ao_num
|
|
do j=1,ao_num
|
|
print *, i,j, ao_overlap_matrix(i,j)
|
|
enddo
|
|
enddo
|
|
end
|