mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-19 12:32:34 +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
|