mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-25 05:51:46 +02:00
15 lines
236 B
Fortran
15 lines
236 B
Fortran
program pouet
|
|
provide ao_bielec_integrals_in_map
|
|
call bla
|
|
end
|
|
subroutine bla
|
|
implicit none
|
|
integer :: i
|
|
do i = 1, 10
|
|
call diagonalize_CI_sc2_no_amp
|
|
TOUCH psi_coef
|
|
enddo
|
|
print *, "E+PT2 = ", ci_energy_sc2_no_amp(:)
|
|
|
|
end
|