mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-12-22 20:34:05 +01:00
23 lines
374 B
Fortran
23 lines
374 B
Fortran
program cassdtq
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Selected CISDTQ with stochastic selection and PT2.
|
|
END_DOC
|
|
|
|
if (.not.is_zmq_slave) then
|
|
PROVIDE psi_det psi_coef mo_two_e_integrals_in_map
|
|
|
|
if (do_pt2) then
|
|
call run_stochastic_cipsi
|
|
else
|
|
call run_cipsi
|
|
endif
|
|
|
|
else
|
|
PROVIDE mo_two_e_integrals_in_map
|
|
|
|
call run_slave_cipsi
|
|
|
|
endif
|
|
end
|