mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-08-30 07:53:39 +02:00
Cleaning
This commit is contained in:
parent
34c08ae5a6
commit
1fa7c93458
@ -21,7 +21,7 @@ subroutine CCSD
|
|||||||
integer :: nSCF
|
integer :: nSCF
|
||||||
double precision :: Conv
|
double precision :: Conv
|
||||||
double precision :: EcMP2
|
double precision :: EcMP2
|
||||||
double precision :: ECCSD,EcCCSD
|
double precision :: ECCSD
|
||||||
double precision :: EcCCT
|
double precision :: EcCCT
|
||||||
double precision :: get_two_e_integral,u_dot_v
|
double precision :: get_two_e_integral,u_dot_v
|
||||||
|
|
||||||
@ -83,10 +83,6 @@ subroutine CCSD
|
|||||||
t2_cc(:,:,:,:) = t2_cc(:,:,:,:) - r2_cc(:,:,:,:)/delta_OOVV(:,:,:,:)
|
t2_cc(:,:,:,:) = t2_cc(:,:,:,:) - r2_cc(:,:,:,:)/delta_OOVV(:,:,:,:)
|
||||||
TOUCH t1_cc t2_cc
|
TOUCH t1_cc t2_cc
|
||||||
|
|
||||||
! Compute correlation energy
|
|
||||||
|
|
||||||
call CCSD_Ec_nc(spin_fock_matrix_mo_ov,EcCCSD)
|
|
||||||
|
|
||||||
! Dump results
|
! Dump results
|
||||||
|
|
||||||
ECCSD = ERHF + EcCCSD
|
ECCSD = ERHF + EcCCSD
|
||||||
@ -120,9 +116,7 @@ subroutine CCSD
|
|||||||
!------------------------------------------------------------------------
|
!------------------------------------------------------------------------
|
||||||
if(doCCSDT) then
|
if(doCCSDT) then
|
||||||
write(*,*) "Starting (T) calculation"
|
write(*,*) "Starting (T) calculation"
|
||||||
! call cpu_time(start_CCSDT)V
|
|
||||||
call CCSDT(EcCCT)
|
call CCSDT(EcCCT)
|
||||||
! call cpu_time(end_CCSDT)
|
|
||||||
call write_time(6)
|
call write_time(6)
|
||||||
|
|
||||||
! t_CCSDT = end_CCSDT - start_CCSDT
|
! t_CCSDT = end_CCSDT - start_CCSDT
|
||||||
|
@ -1,23 +1,13 @@
|
|||||||
subroutine CCSD_Ec_nc(Fov,EcCCSD)
|
BEGIN_PROVIDER [ double precision, EcCCSD ]
|
||||||
|
|
||||||
! Compute the CCSD correlatio energy in non-conanical form
|
|
||||||
|
|
||||||
implicit none
|
implicit none
|
||||||
|
BEGIN_DOC
|
||||||
! Input variables
|
! CCSD correlation energy in non-canonical form
|
||||||
|
END_DOC
|
||||||
double precision,intent(in) :: Fov(spin_occ_num,spin_vir_num)
|
|
||||||
|
|
||||||
! Local variables
|
! Local variables
|
||||||
|
|
||||||
integer :: i,j,a,b
|
integer :: i,j,a,b
|
||||||
|
|
||||||
! Output variables
|
|
||||||
|
|
||||||
double precision,intent(out) :: EcCCSD
|
|
||||||
|
|
||||||
! Compute CCSD correlation energy
|
|
||||||
|
|
||||||
EcCCSD = 0d0
|
EcCCSD = 0d0
|
||||||
|
|
||||||
! Singles contribution
|
! Singles contribution
|
||||||
@ -25,7 +15,7 @@ subroutine CCSD_Ec_nc(Fov,EcCCSD)
|
|||||||
do i=1,spin_occ_num
|
do i=1,spin_occ_num
|
||||||
do a=1,spin_vir_num
|
do a=1,spin_vir_num
|
||||||
|
|
||||||
EcCCSD = EcCCSD + Fov(i,a)*t1_cc(i,a)
|
EcCCSD = EcCCSD + spin_fock_matrix_mo_ov(i,a)*t1_cc(i,a)
|
||||||
|
|
||||||
end do
|
end do
|
||||||
end do
|
end do
|
||||||
@ -46,4 +36,5 @@ subroutine CCSD_Ec_nc(Fov,EcCCSD)
|
|||||||
end do
|
end do
|
||||||
end do
|
end do
|
||||||
|
|
||||||
end subroutine CCSD_Ec_nc
|
END_PROVIDER
|
||||||
|
|
||||||
|
@ -150,11 +150,13 @@ BEGIN_PROVIDER [ double precision, r2_cc, (spin_occ_num,spin_occ_num,spin_vir_nu
|
|||||||
do b=1,spin_vir_num
|
do b=1,spin_vir_num
|
||||||
do a=1,spin_vir_num
|
do a=1,spin_vir_num
|
||||||
x = 0.5d0*cWvvvv(a,b,e,f)
|
x = 0.5d0*cWvvvv(a,b,e,f)
|
||||||
|
if (x /= 0.d0) then
|
||||||
do j=1,spin_occ_num
|
do j=1,spin_occ_num
|
||||||
do i=1,spin_occ_num
|
do i=1,spin_occ_num
|
||||||
r2_cc(i,j,a,b) = r2_cc(i,j,a,b) + x*tau_cc(i,j,e,f)
|
r2_cc(i,j,a,b) = r2_cc(i,j,a,b) + x*tau_cc(i,j,e,f)
|
||||||
end do
|
end do
|
||||||
end do
|
end do
|
||||||
|
endif
|
||||||
end do
|
end do
|
||||||
end do
|
end do
|
||||||
end do
|
end do
|
||||||
|
Loading…
Reference in New Issue
Block a user