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