2019-01-25 11:39:31 +01:00
|
|
|
BEGIN_PROVIDER [double precision, mu_erf_dft]
|
|
|
|
|
implicit none
|
|
|
|
|
BEGIN_DOC
|
2020-03-31 14:13:49 +02:00
|
|
|
! range separation parameter used in RS-DFT.
|
|
|
|
|
!
|
|
|
|
|
! It is set to mu_erf in order to be consistent with the module "ao_two_e_erf_ints"
|
2019-01-25 11:39:31 +01:00
|
|
|
END_DOC
|
|
|
|
|
mu_erf_dft = mu_erf
|
|
|
|
|
|
|
|
|
|
END_PROVIDER
|
2021-10-07 17:37:24 +02:00
|
|
|
|
|
|
|
|
BEGIN_PROVIDER [double precision, mu_of_r_dft, (n_points_final_grid)]
|
|
|
|
|
implicit none
|
|
|
|
|
integer :: i
|
|
|
|
|
do i = 1, n_points_final_grid
|
|
|
|
|
if(mu_dft_type == "cst")then
|
|
|
|
|
mu_of_r_dft(i) = mu_erf_dft
|
|
|
|
|
else
|
|
|
|
|
mu_of_r_dft(i) = mu_of_r_hf(i)
|
|
|
|
|
endif
|
|
|
|
|
enddo
|
|
|
|
|
END_PROVIDER
|
