9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-10-30 10:18:07 +01:00

Added grad_rho

This commit is contained in:
FiletoRodriguez 2021-11-09 15:48:49 +01:00
parent 416cd45d7a
commit af169a4e3c
3 changed files with 4 additions and 2 deletions

View File

@ -22,6 +22,8 @@ BEGIN_PROVIDER [double precision, mu_of_r_dft, (n_points_final_grid)]
mu_of_r_dft(i) = mu_of_r_hf(i)
else if(mu_dft_type == "rsc")then
mu_of_r_dft(i) = mu_rsc_of_r(i)
else if(mu_dft_type == "grad_rho")then
mu_of_r_dft(i) = mu_grad_rho(i)
else
print*,'mu_dft_type is not of good type = ',mu_dft_type
print*,'it must be of type Read, cst, hf, rsc'

View File

@ -17,7 +17,7 @@ double precision function mu_grad_rho_func(r)
integer :: m
double precision :: rho, dm_a, dm_b, grad_dm_a(3), grad_dm_b(3)
double precision :: eta, grad_rho(3), grad_sqr
eta = 0.135d0
eta = mu_erf
call density_and_grad_alpha_beta(r,dm_a,dm_b, grad_dm_a, grad_dm_b)
rho = dm_a + dm_b
do m = 1,3

View File

@ -17,7 +17,7 @@ program rs_ks_scf
print*, '**************************'
print*, 'mu_erf_dft = ',mu_erf_dft
print*, '**************************'
call check_coherence_functional
! call check_coherence_functional
call create_guess
call orthonormalize_mos
call run