mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-25 05:31:48 +02:00
Introduced all_shells_closed
This commit is contained in:
parent
00859876d5
commit
1839809432
@ -29,7 +29,7 @@
|
||||
!
|
||||
END_DOC
|
||||
integer :: i,j,n
|
||||
if (elec_alpha_num == elec_beta_num) then
|
||||
if (all_shells_closed) then
|
||||
Fock_matrix_mo = Fock_matrix_mo_alpha
|
||||
else
|
||||
! Core
|
||||
@ -102,7 +102,7 @@
|
||||
!
|
||||
! END_DOC
|
||||
!integer :: i,j,n
|
||||
!if (elec_alpha_num == elec_beta_num) then
|
||||
!if (all_shells_closed) then
|
||||
! Fock_matrix_mo = Fock_matrix_mo_alpha
|
||||
!else
|
||||
|
||||
@ -229,9 +229,7 @@ BEGIN_PROVIDER [ double precision, Fock_matrix_ao, (ao_num, ao_num) ]
|
||||
call mo_to_ao(Fock_matrix_mo,size(Fock_matrix_mo,1), &
|
||||
Fock_matrix_ao,size(Fock_matrix_ao,1))
|
||||
else
|
||||
if ( (elec_alpha_num == elec_beta_num).and. &
|
||||
(level_shift == 0.) ) &
|
||||
then
|
||||
if (all_shells_closed.and. (level_shift == 0.)) then
|
||||
integer :: i,j
|
||||
do j=1,ao_num
|
||||
do i=1,ao_num
|
||||
|
@ -1,3 +1,11 @@
|
||||
BEGIN_PROVIDER [ logical, all_shells_closed ]
|
||||
implicit none
|
||||
BEGIN_DOC
|
||||
!
|
||||
END_DOC
|
||||
all_shells_closed = (elec_alpha_num == elec_beta_num)
|
||||
END_PROVIDER
|
||||
|
||||
BEGIN_PROVIDER [double precision, SCF_density_matrix_ao_alpha, (ao_num,ao_num) ]
|
||||
implicit none
|
||||
BEGIN_DOC
|
||||
@ -30,7 +38,7 @@ BEGIN_PROVIDER [ double precision, SCF_density_matrix_ao, (ao_num,ao_num) ]
|
||||
! Sum of $\alpha$ and $\beta$ density matrices
|
||||
END_DOC
|
||||
ASSERT (size(SCF_density_matrix_ao,1) == size(SCF_density_matrix_ao_alpha,1))
|
||||
if (elec_alpha_num== elec_beta_num) then
|
||||
if (all_shells_closed) then
|
||||
SCF_density_matrix_ao = SCF_density_matrix_ao_alpha + SCF_density_matrix_ao_alpha
|
||||
else
|
||||
ASSERT (size(SCF_density_matrix_ao,1) == size(SCF_density_matrix_ao_beta ,1))
|
||||
|
Loading…
Reference in New Issue
Block a user