mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-18 20:13:07 +01:00
17 lines
421 B
Fortran
17 lines
421 B
Fortran
|
BEGIN_PROVIDER [double precision, mo_general_density_alpha, (mo_tot_num_align,mo_tot_num)]
|
||
|
|
implicit none
|
||
|
|
integer :: i,j,k,l
|
||
|
|
mo_general_density_alpha = one_body_dm_mo_alpha_generators_restart
|
||
|
|
|
||
|
|
END_PROVIDER
|
||
|
|
|
||
|
|
|
||
|
|
BEGIN_PROVIDER [double precision, mo_general_density_beta, (mo_tot_num_align,mo_tot_num)]
|
||
|
|
implicit none
|
||
|
|
integer :: i,j,k,l
|
||
|
|
mo_general_density_beta = one_body_dm_mo_beta_generators_restart
|
||
|
|
|
||
|
|
END_PROVIDER
|
||
|
|
|
||
|
|
|