mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-07-26 04:37:31 +02:00
14 lines
212 B
Fortran
14 lines
212 B
Fortran
program abproducts
|
|
implicit none
|
|
read_wf = .True.
|
|
TOUCH read_wf
|
|
call run
|
|
end
|
|
|
|
subroutine run
|
|
implicit none
|
|
call generate_all_alpha_beta_det_products
|
|
call diagonalize_ci
|
|
call save_wavefunction
|
|
end
|