mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-19 04:22:36 +01:00
10 lines
119 B
Fortran
10 lines
119 B
Fortran
program pouet
|
|
implicit none
|
|
integer :: i
|
|
do i = 1, 10
|
|
call diagonalize_CI_sc2_no_amp
|
|
TOUCH psi_coef
|
|
enddo
|
|
|
|
end
|