mirror of
https://github.com/LCPQ/quantum_package
synced 2025-01-07 03:43:20 +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
|