mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-10-15 12:31:45 +02:00
26 lines
742 B
Fortran
26 lines
742 B
Fortran
BEGIN_PROVIDER [ double precision, TCSCF_density_matrix_ao_beta, (ao_num, ao_num) ]
|
|
implicit none
|
|
if(bi_ortho)then
|
|
TCSCF_density_matrix_ao_beta = TCSCF_bi_ort_dm_ao_beta
|
|
else
|
|
TCSCF_density_matrix_ao_beta = SCF_density_matrix_ao_beta
|
|
endif
|
|
END_PROVIDER
|
|
|
|
BEGIN_PROVIDER [ double precision, TCSCF_density_matrix_ao_alpha, (ao_num, ao_num) ]
|
|
implicit none
|
|
if(bi_ortho)then
|
|
TCSCF_density_matrix_ao_alpha = TCSCF_bi_ort_dm_ao_alpha
|
|
else
|
|
TCSCF_density_matrix_ao_alpha = SCF_density_matrix_ao_alpha
|
|
endif
|
|
END_PROVIDER
|
|
|
|
|
|
BEGIN_PROVIDER [ double precision, TCSCF_density_matrix_ao_tot, (ao_num, ao_num) ]
|
|
implicit none
|
|
TCSCF_density_matrix_ao_tot = TCSCF_density_matrix_ao_beta + TCSCF_density_matrix_ao_alpha
|
|
END_PROVIDER
|
|
|
|
|