mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-06-17 18:15:17 +02:00
19 lines
222 B
Fortran
19 lines
222 B
Fortran
|
program ccsd
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
BEGIN_DOC
|
||
|
|
! CCSD program
|
||
|
|
END_DOC
|
||
|
|
|
||
|
|
read_wf = .True.
|
||
|
|
touch read_wf
|
||
|
|
|
||
|
|
if (.not. cc_ref_is_open_shell) then
|
||
|
|
call run_ccsd_space_orb
|
||
|
|
else
|
||
|
|
call run_ccsd_spin_orb
|
||
|
|
endif
|
||
|
|
|
||
|
|
end
|