mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-11-07 14:43:41 +01:00
85 lines
1.8 KiB
Fortran
85 lines
1.8 KiB
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
|
|
if (cc_guess == 1) then
|
|
integer :: iunit
|
|
integer, external :: getunitandopen
|
|
|
|
character :: check
|
|
integer :: i, a
|
|
double precision :: amplitude
|
|
|
|
iunit = getunitandopen('t1','r')
|
|
read(iunit,*)
|
|
do
|
|
read(iunit,*,err=10) i, a, amplitude
|
|
i = 2*i-1
|
|
a = 2*a-1 - spin_occ_num
|
|
t1_guess(i,a) = amplitude
|
|
enddo
|
|
10 continue
|
|
do
|
|
read(iunit,*,end=20) i, a, amplitude
|
|
i = 2*i
|
|
a = 2*a - spin_occ_num
|
|
t1_guess(i,a) = amplitude
|
|
enddo
|
|
20 continue
|
|
close(iunit)
|
|
endif
|
|
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(:,:,:,:)
|
|
|
|
if (cc_guess == 1) then
|
|
integer :: iunit
|
|
integer, external :: getunitandopen
|
|
character :: check
|
|
integer :: i, j, a, b
|
|
double precision :: amplitude
|
|
|
|
iunit = getunitandopen('t2','r')
|
|
read(iunit,*)
|
|
do
|
|
read(iunit,*,err=10) i, j, a, b, amplitude
|
|
i = 2*i-1
|
|
j = 2*j-1
|
|
a = 2*a-1 - spin_occ_num
|
|
b = 2*b-1 - spin_occ_num
|
|
t2_guess(i,j,a,b) = amplitude
|
|
enddo
|
|
10 continue
|
|
do
|
|
read(iunit,*,err=20) i, j, a, b, amplitude
|
|
i = 2*i
|
|
j = 2*j
|
|
a = 2*a - spin_occ_num
|
|
b = 2*b - spin_occ_num
|
|
t2_guess(i,j,a,b) = amplitude
|
|
enddo
|
|
20 continue
|
|
do
|
|
read(iunit,*,end=30) i, j, a, b, amplitude
|
|
i = 2*i-1
|
|
j = 2*j
|
|
a = 2*a-1 - spin_occ_num
|
|
b = 2*b - spin_occ_num
|
|
t2_guess(i,j,a,b) = amplitude
|
|
enddo
|
|
30 continue
|
|
close(iunit)
|
|
endif
|
|
|
|
END_PROVIDER
|