mirror of
https://gitlab.com/scemama/eplf
synced 2024-06-23 05:32:14 +02:00
10 lines
210 B
Fortran
10 lines
210 B
Fortran
program debug
|
|
implicit none
|
|
double precision :: eplf_integral, ao_overlap
|
|
PROVIDE ao_prim_num_max
|
|
integer :: i,j
|
|
read(*,*) i,j
|
|
print *, eplf_integral(i,j,eplf_gamma,point)
|
|
print *, ao_overlap(i,j)
|
|
end
|