10
0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-22 21:22:25 +02:00
QuantumPackage/plugins/local/tc_scf/tc_scf_dm.irp.f

53 lines
959 B
Fortran
Raw Normal View History

! ---
2023-08-29 14:26:07 +02:00
BEGIN_PROVIDER [double precision, TCSCF_density_matrix_ao_beta, (ao_num, ao_num)]
2023-02-07 16:45:10 +01:00
BEGIN_DOC
2023-08-29 14:26:07 +02:00
!
2023-02-07 16:45:10 +01:00
! TC-SCF transition density matrix on the AO basis for BETA electrons
2023-08-29 14:26:07 +02:00
!
2023-02-07 16:45:10 +01:00
END_DOC
2023-08-29 14:26:07 +02:00
implicit none
2024-05-01 21:52:00 +02:00
PROVIDE mo_l_coef mo_r_coef
TCSCF_density_matrix_ao_beta = TCSCF_bi_ort_dm_ao_beta
2023-08-29 14:26:07 +02:00
END_PROVIDER
! ---
2023-08-29 14:26:07 +02:00
BEGIN_PROVIDER [double precision, TCSCF_density_matrix_ao_alpha, (ao_num, ao_num)]
2023-02-07 16:45:10 +01:00
BEGIN_DOC
2023-08-29 14:26:07 +02:00
!
2023-02-07 16:45:10 +01:00
! TC-SCF transition density matrix on the AO basis for ALPHA electrons
2023-08-29 14:26:07 +02:00
!
2023-02-07 16:45:10 +01:00
END_DOC
2023-08-29 14:26:07 +02:00
implicit none
2024-05-01 21:52:00 +02:00
PROVIDE mo_l_coef mo_r_coef
TCSCF_density_matrix_ao_alpha = TCSCF_bi_ort_dm_ao_alpha
2023-08-29 14:26:07 +02:00
END_PROVIDER
! ---
2023-08-29 14:26:07 +02:00
BEGIN_PROVIDER [double precision, TCSCF_density_matrix_ao_tot, (ao_num, ao_num)]
2023-02-07 16:45:10 +01:00
BEGIN_DOC
2023-08-29 14:26:07 +02:00
!
2023-02-07 16:45:10 +01:00
! TC-SCF transition density matrix on the AO basis for ALPHA+BETA electrons
2023-08-29 14:26:07 +02:00
!
2023-02-07 16:45:10 +01:00
END_DOC
2023-08-29 14:26:07 +02:00
implicit none
TCSCF_density_matrix_ao_tot = TCSCF_density_matrix_ao_beta + TCSCF_density_matrix_ao_alpha
2023-08-29 14:26:07 +02:00
END_PROVIDER