mirror of
https://gitlab.com/scemama/eplf
synced 2024-06-19 19:52:16 +02:00
20 lines
294 B
Fortran
20 lines
294 B
Fortran
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
|
|
|
|
|