mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-10-05 07:45:59 +02:00
20 lines
444 B
Fortran
20 lines
444 B
Fortran
BEGIN_PROVIDER [ double precision, t1_guess, (spin_occ_num,spin_vir_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Guess amplitudes for single excitations
|
|
END_DOC
|
|
|
|
t1_guess(:,:) = 0d0
|
|
END_PROVIDER
|
|
|
|
|
|
BEGIN_PROVIDER [ double precision, t2_guess, (spin_occ_num,spin_occ_num,spin_vir_num,spin_vir_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Guess amplitudes for double excitations
|
|
END_DOC
|
|
|
|
t2_guess(:,:,:,:) = -OOVV(:,:,:,:)/delta_OOVV(:,:,:,:)
|
|
|
|
END_PROVIDER
|