mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-07-26 04:37:31 +02:00
20 lines
444 B
FortranFixed
20 lines
444 B
FortranFixed
|
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
|