mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-25 05:51:46 +02: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
|