mirror of
https://github.com/pfloos/quack
synced 2024-11-13 09:34:04 +01:00
21 lines
440 B
Fortran
21 lines
440 B
Fortran
|
function electron_number(nGrid,w,rho) result(nEl)
|
||
|
|
|
||
|
|
! Compute the number of electrons via integration of the one-electron density
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
include 'parameters.h'
|
||
|
|
|
||
|
|
! Input variables
|
||
|
|
|
||
|
|
integer,intent(in) :: nGrid
|
||
|
|
double precision,intent(in) :: w(nGrid)
|
||
|
|
double precision,intent(in) :: rho(nGrid)
|
||
|
|
|
||
|
|
! Output variables
|
||
|
|
|
||
|
|
double precision :: nEl
|
||
|
|
|
||
|
|
nEl = dot_product(w,rho)
|
||
|
|
|
||
|
|
end function electron_number
|