|
BEGIN_PROVIDER [ real, density_p ]
|
|
|
|
BEGIN_DOC
|
|
! Value of the density at the current point
|
|
END_DOC
|
|
|
|
density_p = 0.
|
|
integer :: i
|
|
do i=1,elec_beta_num
|
|
density_p = density_p + mo_value_p(i)**2
|
|
enddo
|
|
|
|
do i=1,elec_alpha_num
|
|
density_p = density_p + mo_value_p(i)**2
|
|
enddo
|
|
|
|
END_PROVIDER
|
|
|
|
|