mirror of
https://gitlab.com/scemama/eplf
synced 2024-10-09 17:43:24 +02:00
20 lines
294 B
FortranFixed
20 lines
294 B
FortranFixed
|
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
|
||
|
|
||
|
|