mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-07-26 12:47:30 +02:00
14 lines
212 B
FortranFixed
14 lines
212 B
FortranFixed
|
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
|